FiveTech Software tech support forums

Ahí va !

Validacion de NIF, CIF y NIE nacional
Cuando se hizo, Junio 2023, comprobaba todos los tipos de CIFS y letras en NIF/ NIE existentes

Todos los méritos para Juan Pastor , el creador de las funciones.
apenas hice yo (Paquito) el testeo y unas leves modificaciones

Las variables tipo ...

Ahí va !

Validacion de NIF, CIF y NIE nacional
Cuando se hizo, Junio 2023, comprobaba todos los tipos de CIFS y letras en NIF/ NIE existentes

Todos los méritos para Juan Pastor , el creador de las funciones.
apenas hice yo (Paquito) el testeo y unas leves modificaciones

Las variables tipo ...

Ahí va !

Validacion de NIF, CIF y NIE nacional
Cuando se hizo, Junio 2023, comprobaba todos los tipos de CIFS y letras en NIF/ NIE existentes

Todos los méritos para Juan Pastor , el creador de las funciones.
apenas hice yo (Paquito) el testeo y unas leves modificaciones ...

Otto wrote:Enrico,
But I can only recommend switching to HTML right away.

Man beweist nie, dass man Unrecht hat, man wird um ein Word docgebeten und man möchte HTML kürzen. Es ist, als würde man einen Tesla kaufen und ihnen eine Kutsche liefern

... die noch an Anwendungen im Windows-System arbeiten
3) Es gibt Quellen, Objektklassen und andere Dinge, die immer noch nicht richtig funktionieren, oder sie haben vorher funktioniert, und jetzt gibt es Probleme, Projekte, die gestartet und nie abgeschlossen wurden. Zuerst werden diese ...

... WynikOperacji xmlns="http://www.mf.gov.pl/uslugiBiznesowe/uslugiDomenowe/AP/WeryfikacjaVAT/2018/03/01">
<Kod>N</Kod>
<Komunikat>Podmiot o podanym identyfikatorze podatkowym NIP nie jest zarejestrowany jako podatnik VAT</Komunikat>
</WynikOperacji>
</s:Body>
</s:Envelope>


best regards KAJOT

... error-linenumber -9 as i compile with #pragma begindump!

Warnung W8004 C:\\prg_allgemein\\menudraw.prg 1699: 'nPos' wurde ein Wert zugewiesen, der nie verwendet wird in Funktion FwSelectedItem(tagDRAWITEMSTRUCT *,HMENU__ *,int,long,int)
Warnung W8004 C:\\prg_allgemein\\menudraw.prg 1879: 'nPos ...

... im Forum, mehr oder weniger aktiv.

Ich hoffe das Harbour genauso stabiel ist wie XBase++
Harbour oder xHarbour sind sehr stabil, ich hab noch nie Probleme damit gehabt. Du solltest halt strikt darauf achten, jede Variable zu deklarieren und zu initialisieren (clipper war da ja etwas ...

... nKey = 70, f_action(), ) , ) }

Hope you are well.
Best regards,
Otto
------------------------

Hallo Stefan,

Bitte entschuldige, dass ich mich nie gemeldet habe. Mit der Fertigstellung der "Metro-like-style" Version habe ich sehr viel Arbeit.
Aber ich glaube, ich schaffe es noch dieses Jahr mit ...

... nError ) )
xRESZTA:=.F.
EndIf
If xRESZTA
oWND:oMSGBAR:cMSGDEF:=PNAME+" : OTWARTY"
oWND:oMSGBAR:Refresh(.T.)
Else
oWND:oMSGBAR:cMSGDEF:=PNAME+" : NIE UDANE OTWARCIE"
oWND:oMSGBAR:Refresh(.T.)
EndIf
Return hPORT

Static Function COM_CLOSE(hPORT)
If ! CloseComm( hPORT )
nError = GetCommError ...

... VAT nr ")+AllTrim(FVAT1->NR_M)+cOPIS
Local lPREV:=.F.
oPRN:=PrintBegin(cTYTWYDRUKU,.F.,lPREV,IIF(cPRINTER<>NIL,cPRINTER,PrnGetName()))
Page
FV_CIENIE(@oPRN)
FV_NAGLOWEK(@oPRN,cOPIS)
//FV_KRESKI(@oPRN)
FV_ZAWARTOSC(@oPRN)
EndPage
EndPrint
Return

Function FV_NAGLOWEK(oPRN,cOPIS)
Local oFARIAL12B ...

... nError ) )
xRESZTA:=.F.
EndIf
If xRESZTA
oWND:oMSGBAR:cMSGDEF:=PNAME+" : OTWARTY"
oWND:oMSGBAR:Refresh(.T.)
Else
oWND:oMSGBAR:cMSGDEF:=PNAME+" : NIE UDANE OTWARCIE"
oWND:oMSGBAR:Refresh(.T.)
EndIf
Return xRESZTA

Function RF_REC_READ()
Local XXX,xBUFFER:=Replicate(Chr(255),1024)
//xRTIMER ...

... line 2

TRY
oWord := GetActiveObject( "Word.Application" )
CATCH
TRY
oWord := CreateObject( "Word.Application" )
CATCH
Alert( "Blad! MS Word nie dostepny. [" + Ole2TxtError()+ "]" )
break
END
END

// create a new, empty Word document
oDocument := oWord:documents:add()

// get the text ...

Para calcular la letra del NIE antiguo (Número de identificación de extranjeros que comenzaban por la letra "X") se utilizaba la misma rutina que para calcular la letra del NIF, pero ignorando la letra "X".

Ahora hay NIE,s que comienza por la letra "Y" y en un futuro por la letra "Z" pero para ...

... 8,0))+' / '+AllTrim(Str(RR->BARCODE,8,0))

Select("FF")
TABBAD_INIT(RR->RECNO)

oBRWF := TXBrowse():New( oWNDF )
oBRWF :SetArray( xTABBAD,.F.) // nie szukaj po badaniach
oBRWF :nHeaderLines := 2
oBRWF :nDataLines := 1
oBRWF :lFooter :=.t.

oBRWF :aCols[3]:cHeader := "Nazwa"+sCRLF+"badania"
oBRWF ...