FiveTech Software tech support forums

... // S=ok, 1=aceptada con errores Cuando parseo la respuesta de la aeat si encuentro el tag IF cTag="siiR:CSV" ; cCsv:=cDato y es correcto ELSEIF cTag="siiR:EstadoRegistro" IF cDato="Correcto" ; cCorrecta :="S" Entonces actualizo esos campos de la factura. ...

... cOldFilter = ::cOrder ::cOrder = cFilter EXIT CASE SET_LIMIT cOldFilter = ::cLimit IF ValType( cFilter ) == "C" ::cLimit = cFilter ELSEIF ValType( cFilter ) == "N" ::cLimit = AllTrim( Str( cFilter ) ) ENDIF EXIT ENDSWITCH if ::bOnNewFilter != NIL // if you want change ...

... :=memoread("C:\SYSTEMA\PTO_CORSSA\salida.txt") If Empty(cArchivoTxt) MsgAlert("Archivo Vacio","Atencion" ) ElseIf !File(cArchivoTxt) MsgAlert("Archivo no se Encuentra","Atencion" ) EndIf y siempre me sale archivo no se encuentra saludos ...

... :=memoread("C:\SYSTEMA\PTO_CORSSA\salida.txt") If Empty(cArchivoTxt) MsgAlert("Archivo Vacio","Atencion" ) ElseIf !File(cArchivoTxt) MsgAlert("Archivo no se Encuentra","Atencion" ) EndIf y siempre me sale archivo no se encuentra saludos

... IF lYaPase lYaPase:=.F. IF Len(Alltrim(aDat9[nI,3])) = 2 .and. aDat9[nI,8]=1 cmd:="# COLA-->(1:100) "+AllTrim(UPPER(aDat9[nI,2])) ELSEIF Len(Alltrim(aDat9[nI,3])) = 3 .and. aDat9[nI,8]=1 cmd:="# TRIPLE FIJO(1:1000) "+AllTrim(UPPER(aDat9[nI,2])) ENDIF IF Len(Alltrim(aDat9[nI,3])) ...

... IF lYaPase lYaPase:=.F. IF Len(Alltrim(aDat9[nI,3])) = 2 .and. aDat9[nI,8]=1 cmd:="# COLA-->(1:100) "+AllTrim(UPPER(aDat9[nI,2])) ELSEIF Len(Alltrim(aDat9[nI,3])) = 3 .and. aDat9[nI,8]=1 cmd:="# TRIPLE FIJO(1:1000) "+AllTrim(UPPER(aDat9[nI,2])) ENDIF IF Len(Alltrim(aDat9[nI,3])) ...

... nKey ) == "," ) if ::oGet:Clear() #ifndef __XHARBOUR__ ::oGet:DelEnd() #endif endif ::oGet:ToDecPos() ... inserten el siguiente código elseif ::oGet:Type == "C" .AND. Chr( nKey ) == "+" mivar1=::oGet:buffer IF LEN(ALLTRIM(mivar1))>0 mivar1=UPPER(mivar1) ::oGet:VarPut( ...

Hello, function copy to delimited errors out. I think the parameter nMode == 1 should be logical parameter and TRUE. Best regards, Otto ELSEIF nFormat == 3 // Delimited ? cFileName //__dbDelim( nMode == 1 , cFileName , cDelim , aFld , ; // bFor , bWhile , nNext , nRec , lRest) __dbDelim( .T. ...

... 3. METHOD MouseRowPos( nRow ) CLASS TXBrowse if ::lgetbar.and.nrow<::HeaderHeight().and.nrow>=::HeaderHeight()-::nrowheight nrowpos:=-1 elseif ::lgetbar.and.nrow<=::HeaderHeight()-::nrowheight.and.nrow>=::HeaderHeight()-::nrowheight*2 nrowpos:=-2 else nRowPos := Int( nTmp / ::nRowHeight ...

... at the end : IF SUBSTR( aDat[90], LEN( TRIM( aDat[90] ) ) - 1, 1 ) <> CRLF cMedik1 := TRIM( STRTRAN(aDat[90], "|", CRLF ) ) + CRLF ELSEIF SUBSTR( aDat[91], LEN( TRIM( aDat[91] ) ) - 1, 1 ) <> CRLF cMedik2 := TRIM( STRTRAN(aDat[91], "|", CRLF ) ) + CRLF ENDIF ("PATIENT")->MEDIKAM1 ...

... return 'N' endcase return "" function FWAdoFieldStruct (ORS, n) .... nType: = oField: Type if nType == adBoolean cType: = 'L' nLen: = 1 elseif nType == adGUID <------ cType: = 'C' nLen: = 36 ... thank you Manfred

... ) oLog := TIPLog():New( iif( HB_ISSTRING( xTrace ), xTrace, NIL ) ) ::bTrace := {| cMsg | iif( PCount() > 0, oLog:Add( cMsg ), oLog:Close() ) } ELSEIF HB_ISEVALITEM( xTrace ) ::bTrace := xTrace ENDIF IF HB_ISSTRING( oUrl ) oUrl := TUrl():New( oUrl ) ENDIF SWITCH oURL:cProto CASE "ftp" ...

... o:lHide := .t. }, 8 ) <other settings> oBrw:CreateFromCode() Button Action: if nSchicht == 1 oBrw:ReArrangeCols( { 1, 2, 3, 4, 5, 6, 7 } ) elseif nSchicht == 2 oBrw:ReArrangeCols( { 1, 2, 3, 4, 8, 9, 10 } ) else oBrw:ReArrangeCols( { 1, 2, 3, 4, 11,12,13 } ) endif

perhaps I found the error For k= 1 to 5 // numeri If nposition[k]= alltrim("a") nline:= 1 elseif nposition[k]= alltrim("b") nline:= 2 elseif nposition[k]= alltrim("c") nline:= 3 endif nNumbers[k]:= aline[nline][k] next k nopw seem to run ok

... = 1 TO aDataBases[n,3] AADD(aIndex, cDataBasePad + aDataBases[n,i+3]) NEXT ENDIF IF LEN(aIndex) == 0 USE (cDataBase) NEW ALIAS &cAlias SHARED ELSEIF LEN(aIndex) == 1 USE (cDataBase) INDEX (aIndex[1]) NEW ALIAS &cAlias SHARED ELSEIF LEN(aIndex) == 2 USE (cDataBase) INDEX (aIndex[1]), (aIndex[2]) ...