FiveTech Software tech support forums

I use menu on the dialog I must have also the variables lsave to save or not a record function EditClient( oLbx, lAppend ) local oDlg, oFld,oFont, oFont1 Local lSave :=.f. ... DEFINE DIALOG oDlg TITLE If( lAppend, "New", "Update" ) ACTIVATE DIALOG oDlg ; ON ...

IF I CREATE A FOLDER FROM SOURCE http://img148.imageshack.us/img148/2691/pccerr.png DEFINE DIALOG oDlg TITLE If( lAppend, "New", "Update" ) @ 0, 0 FOLDER oFld PROMPTS "Generale", "Dettagli", "Note" ; SIZE 119,95 @ 1, 0 SAY ...

... @ 034, 013 SAY oFan_s_Clie VAR "N.Fantasia:" PIXEL OF oFld:aDialogs[ 1 ] SIZE 30,10 FONT oFont DEFINE DIALOG oDlg FROM 4, 4 TO 34.4, 61 TITLE If( lAppend, "Novo Cliente", "Atualiza/Consulta Cliente" ) @ 001, 001 Folder ofld Items "&Dados do Cliente", "&End.Cobraça/Entrega", "&Observações/Complemento" ...

... variable cNR in GET is not equal to the variable which return function daj_nr() DEFINE DIALOG oDlg FROM 0,0 to 180*2.05,200*2.05 PIXEL ; TITLE If( lAppend, "Nowy", "Modyfikacja" ) FONT oFont k1:=10 k2:=50 mn:=2.05 @ 10, k1 SAY "&Typ:" OF oDlg PIXEL @ 10, k2 GET cTyp picture '!' when lAppend ...

NO GET:

VALID VALIDAR( DbClientes:ARRAZFOR, lAppend, DbClientes, Etc )

na funcao:

STATIC FUNCTION VALIDAR( cCodCli, lAppend, DbCLientes, Etc )

IF GETASYNCKEY( VK_UP )
RETURN( .F. )
ENDIF

DBSEEK( cCodCli )

IF FOUND()

...
ELSE

...
ENDIF

RETURN( .T. )

... #include "FiveWin.ch" MEMVAR oBARPPAL, oREPORT, oDLGACCESO, oCOMBOBOX, oWPPAL, oWHIJAS, oCURMANO, rBMP, rDLL, lARCHIVOS,; lPRINT, nMENU, lAPPEND, lORIGEN, nRECNO, nTOP, cTitulo, dDesde, dHasta, nMEMO FUNCTION clasicli(lORIGEN) // MAESTRO CLASIFICACION CLIENTES local oDlgClaCli, oLbxClaCli, ...

... in Dialog use FROM 0,0 to 400,500 PIXEL where in "last button" I have row 200 /to see last button/ my source static function EditWplaty( oLBX2, lAppend ) local oDLG2 local lSave := .f. local NR_REK := RecNo() local oFont local nr_ord:=indexord() // DEFAULT lAppend := .f. if lAppend zeruj('k') ...

... cIMIE = uczen->Imie cMiejsce_z = Uczen->Miejsce_z cPesel = Uczen->Pesel DEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ; TITLE If( lAppend, "Nowy", "Modyfikacja" ) @ 1, 1 SAY "&Nazwisko:" OF oDlg @ 1, 6 GET cNazwisko OF oDlg @ 2, 1 SAY "&Imie:" OF oDlg @ 2, 6 GET cImie OF ...

... a pesar de que el campo lo tengo definido como carácter, este es el código. REDEFINE BTNGET aGets[02] VAR oHdr:HDR_SOC ID 102 OF oDlg UPDATE; WHEN lAppend; RESOURCE "Buscar" PICTURE "@K 9999999"; VALID ChkSoc(oDlg,oHdr,aGets); ACTION (oHdr:HDR_SOC := BrwSoc(cSocios,oDlg),ChkSoc(oDlg,oHdr,aGets)); ...

... DbClientes:SetBuffer( .T. ) // Assim, .T. a Op‡Æo (Cancelar) Funciona. ELSE MsgStop( "Banco de Dados Bloqueado", "Cuidado!" ) RETURN NIL ENDIF IF lAppend //-> Inclusao DbClientes:SetOrder( 1 ) DbClientes:GoBottom() nCodigo := ( DbClientes:Raz_Matric ) DbClientes:SetBuffer( .T. ) DbClientes:Blank() ...

while say and get weren't the same rows my sample DEFINE DIALOG oDlg FROM 1, 1 TO 35, 75 ; TITLE If( lAppend, "Nowy", "Modyfikacja" ) @ 1, 1 SAY "Paczka:" OF oDlg @ 1, 6 GET cPaczka OF oDlg @ 2, 1 SAY "Typ:" OF oDlg @ 2, 6 GET cTYP_DOK OF oDlg @ 3, 1 SAY "Nr dok:" OF oDlg ...

... #Define MODE_FILE 1 #Define MODE_RECORD 2 #Define MODE_APPEND 3 Function Bloquea( cAlias, lAppend ) Local nMode Local nCnt := 0 DEFAULT lAppend := .F. DbSelectArea( cAlias ) If lAppend nMode := MODE_APPEND Else nMode := MODE_RECORD EndIf ...

Could You tell me , if x1,x2,x3,x4 are in pixles or mm ?

DEFINE DIALOG oDlg FROM x1, x2 TO x3, x4 ;
TITLE If( lAppend, "New Customer", "Customer Update" )

@ x1, x2 SAY "&Name:" OF oDlg
@ x1, x2 GET cName OF oDlg

editmach module goes well with with lAppend=.f. (update option ) but with lAppend=.t. (New record) I had the alltrim argument error message. static function Editmach(oLbx,lAppend) //------------------------------------------ .. ...

editmach module goes well with with lAppend=.f. (update option ) but with lAppend=.t. (New record) I had the alltrim argument error message. static function Editmach(oLbx,lAppend) //------------------------------------------ .. ...