PC Toledo

Código: Selecionar todos

***************************
Function AjudaEmpresa(oVar)
***************************
*
*
Local sTxt:=""

If oCRT:Handle = hwg_Getfocus()

   Text to File "CRT.TXT"
     ANEXO ÚNICO
     Códigos de Detalhamento do Regime e da Situação TABELA A Código de Regime Tributário CRT

     1 Simples Nacional

     2 Simples Nacional  excesso de sublimite da receita bruta

     3 Regime Normal

     NOTAS EXPLICATIVAS:

     O código 1 será preenchido pelo contribuinte quando for optante pelo Simples Nacional.

     O código 2 será preenchido pelo contribuinte optante pelo Simples Nacional mas que tiver ultrapassado o
     sublimite de receita bruta fixado pelo estado/DF e estiver impedido de recolher o ICMS/ISS por esse regime,
     conforme arts. 19 e 20 da LC 123/2006.

     O código 3 será preenchido pelo contribuinte que não estiver na situação 1 ou 2.
   EndText

   sTXT := memoread("CRT.TXT")

EndIf

If !empty(sTxt)
   hwg_MsgInfo(sTxt)
EndIf

Código: Selecionar todos

@ nA,nB get oCRT VAR cCRT size nX,nY

Código: Selecionar todos

#xcommand @ <x>,<y> GET [ <oEdit> VAR ]  <vari>  ;
            [ OF <oWnd> ]              ;
            [ ID <nId> ]               ;
            [ SIZE <width>, <height> ] ;
            [ COLOR <color> ]          ;
            [ BACKCOLOR <bcolor> ]     ;
            [ PICTURE <cPicture> ]     ;
            [ WHEN  <bGfocus> ]        ;
            [ VALID <bLfocus> ]        ;
            [ ON KEYDOWN <bKeyDown>]   ;
            [ ON CHANGE <bChange> ]    ;
            [ ON INIT <bInit> ]        ;
            [ ON SIZE <bSize> ]        ;
            [<lPassword: PASSWORD>]    ;
            [ MAXLENGTH <nMaxLength> ] ;
            [ STYLE <nStyle> ]         ;
            [<lnoborder: NOBORDER>]    ;
            [ FONT <oFont> ]           ;
            [ TOOLTIP <ctoolt> ]       ;

Código: Selecionar todos

hwg_setdlgkey(oDlg,0,VK_F1,{||AjudaEmpresa()})