'Nome       : Sig4_Imp.amx
'Tipo       : AMX OPC
'Data       : 2005/11/09
'Versao     : 1.0
'Descricao  : Importacao dados SIG 4

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2005/??/?? --------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Tipo de configuracao              [OpcCfg]=ASCII

'opcoes
Documentos                        [OpcDoc]=S,
Datas                              [OpcDt]=S,
Contas                             [OpcCt]=S,
Artigos                           [OpcArt]=S,
Vendedores/limite a usar          [OpcVnd]=S,0:99


'diversos
Impressora adicional              [PrtAdi]=AmxPrt.std

Radical de clientes               [CliRad]=211
Digitos de clientes (sem radical) [CliDig]=4


'formatos
Importar                          [OpcUsa]=ImpCtaMst1:1,ImpCtaAng1:1,ImpCtaMst2:1,ImpCtaAng2:1,+
                                          +ImpCtaMov1:1,ImpCtaMov2:1,ImpCtaMov3:1,ImpCtaMov4:1,ImpCtaMov5:1


'Importar                          [OpcUsa]=ImpCtaAng:0,ImpCtaMst:0,ImpCtaMov:1
'                                          +ImpStcMst:0,ImpStcMov:0,+
'                                          +ImpEncDoc:0,ImpEncMov:0,ImpEncGdo:0
##


'==============================================================================
'= Importacao =================================================================
'==============================================================================

'==============================================================================
#DOC - Contas CTA
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMst1,CTA - Clientes (Mestre)

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMst
Limites a validar          [DocEsp]=OpcLim=CT,VND
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,Clientes.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,Clientes.res

'ficheiro ASCII
Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=+Opc$,Ct$,Nom$,Entid$,Ctrb$,OrdAux$,+
                                          +Txl$,RzaNd,CodTrat$,RefCt$,RefCod$,+
                                          +IvaAno$,IvaPer$,+
                                          +Ccusto,Pais,Moeda

Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMst1,CtaMst1

Modo de importacao (NOR,SBT,LPZ)  [DocEsp]=MoImp=LPZ
##


'==============================================================================
#DOC - Dados anagraficos CTA
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaAng1,CTA - Clientes (Anagraficos)

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaAng
Limites a validar          [DocEsp]=OpcLim=CT,VND
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,Clientes.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,CtaAng.res

'ficheiro ASCII
Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=+Opc$,Ct$,Nom2$,Morada$,Local$,Cpost$,+
                                          +Nib$,Cloc$,Cae$,Contacto$,+
                                          +Telef$,Telem$,Fax$,Email$,Web$,+
                                          +Grp$,Prc$,Vend,Cpag,Desco$,+
                                          +Trsp%,CrdCtl,Rappel,CompAno,ComAnt,+
                                          +Txl$,Ender$

Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaAng1,CtaAng1

Modo de importacao (NOR,SBT,LPZ)  [DocEsp]=MoImp=LPZ
##


'==============================================================================
#DOC - Contas CTA
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMst2,CTA - Fornecedores (Mestre)

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMst
Limites a validar          [DocEsp]=OpcLim=CT,VND
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,Fornecedores.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,Clientes.res

'ficheiro ASCII
Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=+Opc$,Ct$,Nom$,Entid$,Ctrb$,OrdAux$,+
                                          +Txl$,RzaNd,CodTrat$,RefCt$,RefCod$,+
                                          +IvaAno$,IvaPer$,+
                                          +Ccusto,Pais,Moeda

Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMst2,CtaMst2

Modo de importacao (NOR,SBT,LPZ)  [DocEsp]=MoImp=LPZ
##


'==============================================================================
#DOC - Dados anagraficos CTA
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaAng2,CTA - Fornecedores (Anagraficos)

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaAng
Limites a validar          [DocEsp]=OpcLim=CT,VND
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,Fornecedores.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,CtaAng.res

'ficheiro ASCII
Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=+Opc$,Ct$,Nom2$,Morada$,Local$,Cpost$,+
                                          +Nib$,Cloc$,Cae$,Contacto$,+
                                          +Telef$,Telem$,Fax$,Email$,Web$,+
                                          +Grp$,Prc$,Vend,Cpag,Desco$,+
                                          +Trsp%,CrdCtl,Rappel,CompAno,ComAnt,+
                                          +Txl$,Ender$

Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaAng2,CtaAng2

Modo de importacao (NOR,SBT,LPZ)  [DocEsp]=MoImp=LPZ
##


'==============================================================================
#DOC - Movimentos CTA Clientes
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMov1,CTA - Facturas Vendas

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=



'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMov
Limites a validar          [DocEsp]=OpcLim=DOC,DT,CT
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,vendas.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,CtaMov1.res

Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=Ct$,Dtl,Tdoc$,Ndoc$,Dtv,Descr$,Vl,Vme,Tv$,Div$,Pais,Moeda,Cmb
Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMov1,CtaMov1


'Campos nao usados: x_RecIde,x_RecVal,x_RecSit,x_RecLoc,

Modo de importacao (NOR,LPZ)  [DocEsp]=MoImp=NOR


'==================
' Opcoes especiais
'==================
'NDO        - Numero de documento - Tipo SIG 2.x
'VLN        - Valor nacional      - tipo SIG 2.x
##


'==============================================================================
#DOC - Movimentos CTA Clientes
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMov2,CTA - Facturas Compras

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=



'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMov
Limites a validar          [DocEsp]=OpcLim=DOC,DT,CT
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,compras.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,CtaMov2.res

Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=Ct$,Dtl,Tdoc$,Ndoc$,Dtv,Descr$,Vl,Vme,Tv$,Div$,Pais,Moeda,Cmb
Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMov2,CtaMov2


'Campos nao usados: x_RecIde,x_RecVal,x_RecSit,x_RecLoc,

Modo de importacao (NOR,LPZ)  [DocEsp]=MoImp=NOR


'==================
' Opcoes especiais
'==================
'NDO        - Numero de documento - Tipo SIG 2.x
'VLN        - Valor nacional      - tipo SIG 2.x
##


'==============================================================================
#DOC - Movimentos CTA Clientes
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMov3,CTA - N.Credito Compras

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=



'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMov
Limites a validar          [DocEsp]=OpcLim=DOC,DT,CT
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,NCredito.asc
Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,Ncredito.res

Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=Ct$,Dtl,Tdoc$,Ndoc$,Dtv,Descr$,Vl,Vme,Tv$,Div$,Pais,Moeda,Cmb
Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMov3,CtaMov3


'Campos nao usados: x_RecIde,x_RecVal,x_RecSit,x_RecLoc,

Modo de importacao (NOR,LPZ)  [DocEsp]=MoImp=NOR


'==================
' Opcoes especiais
'==================
'NDO        - Numero de documento - Tipo SIG 2.x
'VLN        - Valor nacional      - tipo SIG 2.x
##


'==============================================================================
#DOC - Movimentos CTA Clientes
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMov4,CTA - Recibos

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=



'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMov
Limites a validar          [DocEsp]=OpcLim=DOC,DT,CT
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,Recibos.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,CtaMov2.res

Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=Ct$,Dtl,Tdoc$,Ndoc$,Dtv,Descr$,Vl,Vme,Tv$,Div$,Pais,Moeda,Cmb
Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMov4,CtaMov4


'Campos nao usados: x_RecIde,x_RecVal,x_RecSit,x_RecLoc,

Modo de importacao (NOR,LPZ)  [DocEsp]=MoImp=NOR


'==================
' Opcoes especiais
'==================
'NDO        - Numero de documento - Tipo SIG 2.x
'VLN        - Valor nacional      - tipo SIG 2.x
##


'==============================================================================
#DOC - Movimentos CTA Clientes
'==============================================================================
Tipo                       [DocTip]=ASCII
Nome                       [DocNom]=ImpCtaMov5,CTA - Notas Pagamento

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=
Colunas por linha          [DocCol]=
Ajustar pagina             [DocApg]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=



'parametros especificos
Tipo SIG                   [DocEsp]=SigTip=CtaMov
Limites a validar          [DocEsp]=OpcLim=DOC,DT,CT
Ficheiro de dados          [DocEsp]=FicDat=[SIG_INS.LOC.SIG],trf,NP.asc
'Ficheiro de resultados     [DocEsp]=FicRes=[SIG_INS.LOC.SIG],trf,CtaMov2.res

Tipo do ficheiro ASCII     [DocEsp]=AscTip=LTx
Campos do ficheiro         [DocEsp]=AscCmp=Ct$,Dtl,Tdoc$,Ndoc$,Dtv,Descr$,Vl,Vme,Tv$,Div$,Pais,Moeda,Cmb
Adaptacao VBS (Opc,Fx,Rad) [DocEsp]=AscVbs=Cnv+Ajt+Val,ImpCtaMov5,CtaMov5


'Campos nao usados: x_RecIde,x_RecVal,x_RecSit,x_RecLoc,

Modo de importacao (NOR,LPZ)  [DocEsp]=MoImp=NOR


'==================
' Opcoes especiais
'==================
'NDO        - Numero de documento - Tipo SIG 2.x
'VLN        - Valor nacional      - tipo SIG 2.x
##

'==============================================================================
#VAR - Variaveis
'==============================================================================
'Pag       = Doc_CntPag
'Cnt       = FrmVal$(CntAux(1),21,4)
'DataExt   = FrmVal$(Sig_DtHoje,45,0)

##

'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
Sub AscIni 'forcar inicializacao
end sub

'- Generico -------------------------------------------------------------------
SUB SigExpLin 'registo de tabela
print MemTxt$(11)
end sub



'- CtaMov ---------------------------------------------------------------------
SUB CtaMovLin 'registo de movimentos CTA
print MemTxt$(11)
end sub


'- StcMov ---------------------------------------------------------------------
SUB StcMovLin 'registo de movimentos STC
print MemTxt$(11)
end sub


'- EncDoc ---------------------------------------------------------------------
SUB EncDocLin 'registo de documentos ENC
print MemTxt$(11);
end sub


'- EncMov ---------------------------------------------------------------------
SUB EncMovLin 'registo de movimentos ENC
print MemTxt$(11)
end sub


'- EncGdo ---------------------------------------------------------------------
SUB EncGdoLin 'registo de grupo de documentos ENC
print MemTxt$(11)
end sub


##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Ficheiro de relatorios    =[SIG_DIR.CFG],amx,AmxRes.std
#

'==============================================================================
#VBS - VB Script
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

'- variaveis globais ----------------------------------------------------------
'variaveis de CtaMov
'Campos do ficheiro         [DocEsp]=AscCmp=Ct$,Dtl,Tdoc$,Ndoc$,Dtv,Descr$,Vl,Vme,Tv$,Pais,Moeda,Cmb

'---------------------------------------------------------------------------------------
'       CTAMST1
'---------------------------------------------------------------------------------------
dim CtaMst1Ct
dim CtaMst1Nom
dim CtaMst1Entid
dim CtaMst1Ctrb
dim CtaMst1OrdAux
dim CtaMst1Txl
dim CtaMst1RzaNd
dim CtaMst1CodTrat
dim CtaMst1RefCt
dim CtaMst1RefCod
dim CtaMst1IvaAno
dim CtaMst1IvaPer
dim CtaMst1Ccusto
dim CtaMst1Pais
dim CtaMst1Moeda

'---------------------------------------------------------------------------------------
'       CTAANG1
'---------------------------------------------------------------------------------------

dim CtaAng1Ct
dim CtaAng1Nom2
dim CtaAng1Morada
dim CtaAng1Local
dim CtaAng1Cpost
dim CtaAng1Nib
dim CtaAng1Cloc
dim CtaAng1Cae
dim CtaAng1Contacto
dim CtaAng1Telef
dim CtaAng1Telem
dim CtaAng1Fax
dim CtaAng1Email
dim CtaAng1Web
dim CtaAng1Grp
dim CtaAng1Prc
dim CtaAng1Vend
dim CtaAng1Cpag
dim CtaAng1Desco
dim CtaAng1Trsp
dim CtaAng1CrdCtl
dim CtaAng1Rappel
dim CtaAng1CompAno
dim CtaAng1ComAnt
dim CtaAng1Txl
dim CtaAng1Ender

'---------------------------------------------------------------------------------------
'       CTAMST2
'---------------------------------------------------------------------------------------
dim CtaMst2Ct
dim CtaMst2Nom
dim CtaMst2Entid
dim CtaMst2Ctrb
dim CtaMst2OrdAux
dim CtaMst2Txl
dim CtaMst2RzaNd
dim CtaMst2CodTrat
dim CtaMst2RefCt
dim CtaMst2RefCod
dim CtaMst2IvaAno
dim CtaMst2IvaPer
dim CtaMst2Ccusto
dim CtaMst2Pais
dim CtaMst2Moeda

'---------------------------------------------------------------------------------------
'       CTAANG2
'---------------------------------------------------------------------------------------

dim CtaAng2Ct
dim CtaAng2Nom2
dim CtaAng2Morada
dim CtaAng2Local
dim CtaAng2Cpost
dim CtaAng2Nib
dim CtaAng2Cloc
dim CtaAng2Cae
dim CtaAng2Contacto
dim CtaAng2Telef
dim CtaAng2Telem
dim CtaAng2Fax
dim CtaAng2Email
dim CtaAng2Web
dim CtaAng2Grp
dim CtaAng2Prc
dim CtaAng2Vend
dim CtaAng2Cpag
dim CtaAng2Desco
dim CtaAng2Trsp
dim CtaAng2CrdCtl
dim CtaAng2Rappel
dim CtaAng2CompAno
dim CtaAng2ComAnt
dim CtaAng2Txl
dim CtaAng2Ender

dim CtaMov1Ct                           'codigo da conta
dim CtaMov1Dtl                          'data de lancamnto
dim CtaMov1Tdoc                         'tipo de documento
dim CtaMov1Ndoc                         'numero do documento
dim CtaMov1DtV                          'data de lancamnto
dim CtaMov1Descr                        'descricao
dim CtaMov1Vl                           'valor (moeda nacional)
dim CtaMov1VMe                          'valor (moeda Estr.)
dim CtaMov1Tv                           'tipo do valor
dim CtaMov1Pais                         'Pais
dim CtaMov1Div                          'Diversos
dim CtaMov1Moeda                        'Moeda
dim CtaMov1Cmb                          'Cambio

dim CtaMov2Ct                           'codigo da conta
dim CtaMov2Dtl                          'data de lancamnto
dim CtaMov2Tdoc                         'tipo de documento
dim CtaMov2Ndoc                         'numero do documento
dim CtaMov2DtV                          'data de lancamnto
dim CtaMov2Descr                        'descricao
dim CtaMov2Vl                           'valor (moeda nacional)
dim CtaMov2VMe                          'valor (moeda Estr.)
dim CtaMov2Tv                           'tipo do valor
dim CtaMov2Pais                         'Pais
dim CtaMov2Div                          'Diversos
dim CtaMov2Moeda                        'Moeda
dim CtaMov2Cmb                          'Cambio


dim CtaMov3Ct                           'codigo da conta
dim CtaMov3Dtl                          'data de lancamnto
dim CtaMov3Tdoc                         'tipo de documento
dim CtaMov3Ndoc                         'numero do documento
dim CtaMov3DtV                          'data de lancamnto
dim CtaMov3Descr                        'descricao
dim CtaMov3Vl                           'valor (moeda nacional)
dim CtaMov3VMe                          'valor (moeda Estr.)
dim CtaMov3Tv                           'tipo do valor
dim CtaMov3Pais                         'Pais
dim CtaMov3Div                          'Diversos
dim CtaMov3Moeda                        'Moeda
dim CtaMov3Cmb                          'Cambio


dim CtaMov4Ct                           'codigo da conta
dim CtaMov4Dtl                          'data de lancamnto
dim CtaMov4Tdoc                         'tipo de documento
dim CtaMov4Ndoc                         'numero do documento
dim CtaMov4DtV                          'data de lancamnto
dim CtaMov4Descr                        'descricao
dim CtaMov4Vl                           'valor (moeda nacional)
dim CtaMov4VMe                          'valor (moeda Estr.)
dim CtaMov4Tv                           'tipo do valor
dim CtaMov4Pais                         'Pais
dim CtaMov4Div                          'Diversos
dim CtaMov4Moeda                        'Moeda
dim CtaMov4Cmb                          'Cambio


dim CtaMov5Ct                           'codigo da conta
dim CtaMov5Dtl                          'data de lancamnto
dim CtaMov5Tdoc                         'tipo de documento
dim CtaMov5Ndoc                         'numero do documento
dim CtaMov5DtV                          'data de lancamnto
dim CtaMov5Descr                        'descricao
dim CtaMov5Vl                           'valor (moeda nacional)
dim CtaMov5VMe                          'valor (moeda Estr.)
dim CtaMov5Tv                           'tipo do valor
dim CtaMov5Pais                         'Pais
dim CtaMov5Div                          'Diversos
dim CtaMov5Moeda                        'Moeda
dim CtaMov5Cmb                          'Cambio


'msgbox "DIM >"

'------------------------------------------------------------------------------
'Funcoes
'------------------------------------------------------------------------------
Sub NumCnv(vtx, num) 'conversao em numero
'vtx        - valor/texto
'num        - valor numero

on error resume next                   'controlar erros

'msgbox "NumCnv >"+vtx+"<"

num=0                                  'assume valor zero
if vtx="" then
   num=0                               'valor zero
else
   num=cDbl(vtx)                       'conversao em numero
end if

on error goto 0                        'terminar controlo de erros
end sub


Sub TxtCnv(vl, vtx) 'conversao em texto
'vl         - valor a converter
'vtx        - valor em texto

on error resume next                   'controlar erros

'msgbox "NumCnv >"+vtx+"<"

vtx=""                                 'assume nulo
vtx=Trim(cStr(vl))                     'converter para texto

on error goto 0                        'terminar controlo de erros
end sub


Sub NumTxt(num, dig, ce, tx) 'converter numero em texto
'num        - numero a converter (pode estar em texto)
'dig        - numero de digitos
'ce         - caractere de enchimento (para numero >=0)
'tx         - texto

'NOTA: Se o numero for negativo forca o enchimento a espacos

on error resume next                   'controlar erros

tmp=0                                           'assume valor zero

tmp=cDbl(num)                                   'copiar
tx = LTrim(cStr(tmp))                           'converter para texto
If tmp < 0 Then                                 'negativo ?
   tx = Right(String(dig, " ") + tx, dig)       'ajustar tamanho
Else                                            'zero ou positivo
   tx = Right(String(dig, ce) + tx, dig)        'ajustar tamanho
End If

on error goto 0                        'terminar controlo de erros
End Sub

Sub TxtSep(tx, sp, txs) 'separar texto
'tx         - texto original/residual
'sp         - separador
'txs        - texto separado

'msgbox "TxtSep >" + tx + "<"

p = InStr(tx, sp)                      'pesquisa do separador
If p <> 0 Then                         'encontrou separador
   txs = Left(tx, p - 1)               'texto separado
   tx  = Mid(tx, p + 1)                'texto residual
Else                                   'nao encontrou separador
   txs = tx                            'texto separado (tudo)
   tx  = ""                            'texto residual (nada)
End If

'msgbox "TxtSep >" + tx + "<" + Txs

End Sub

Sub TxtSepEa(tx, sp, txs) 'separar texto e ajustar (eliminar aspas)
'tx         - texto original/residual
'sp         - separador
'txs        - texto separado

'msgbox "TxtSep EA 1 >" & tx & "<"

call TxtSep(tx, sp, tmp)               'separar texto
txs = TxtEliAspa(tmp)                  'eliminar aspas nos extremos

'msgbox "TxtSep EA 2 >" & txs & "<"
'msgbox "TxtSep EA >" & txs & "< >" & tx
end sub

Function TxtEliAspa(tx) 'eliminar aspas nos extremos
'tx         - texto base

'msgbox "EliAspa >" & tx & "<"

'aspa no inicio
If Left(tx, 1) = Chr(34) Then          'tem aspa ?
   tmp = Mid(tx, 2)                    'eliminar aspa
Else
   tmp = tx                            'nao tem, usa tudo
End If

'aspa no fim
If Right(tmp, 1) = Chr(34) Then        'tem aspa ?
   dig = Len(tmp) - 1                  'tamanho a usar
   tmp = Left(tmp, dig)                'eliminar aspa
End If

'terminar
TxtEliAspa = tmp                        'retornar valor
End Function


Sub MovAjtDtl(dtb, dtl) 'ajustar data
'dtb        - data base
'dtl        - data de lancamento

Xtmp = cStr(dtb)                        'conversao de data em texto
'Call NumCnvTxt(dtb, -15, "0", tmp)       'converter em texto/ajustar
'msgbox "AjtDtl 1 >" & dtb + "< >" + tmp + "<"

txDia = mid(Xtmp,1,2)                   'texto para dia
txMes = mid(Xtmp,4,2)                   'texto para mes
txAno = mid(Xtmp,7,4)                   'texto para ano

dtl=txAno+txMes+txDia+txMes+"00000"    'gerar data

'msgbox "AjtDtl >" + tmp + "< >" + dtl + "<"
end sub

'- CtaMSt -------------------------------------   CLIENTES (CONTAS)
Sub ImpCtaMst1Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCtCli)          'Conta Cliente
call TxtSepEA(tmp, ",", xNif)            'Nif

XNom1 = ""
If Left(tmp, 1) = Chr(34) Then        'tem aspa ?
   call TxtSepEA(tmp, ",", xNom)            'Nome
   call TxtSepEA(tmp, ",", xNom1)            'Nome
else
   call TxtSepEA(tmp, ",", xNom)            'Nome
end if
Xnom = XNom+Xnom1

call TxtSepEA(tmp, ",", XMorada)         'Morada
call TxtSepEA(tmp, ",", xLocal)          'Local
call TxtSepEA(tmp, ",", xCPost)          'Codigo Postal

Call NumTxt(XCtCli, 5, "0", Tx)       'converter em texto/ajustar

CtaMst1Ct      = "21111"+Tx

TxtNom=TxtEliAspa(XNom)                  'eliminar aspas nos extremos
CtaMst1Nom     = TxtNom
CtaMst1Entid   = ""
CtaMst1Ctrb    = XNif
CtaMst1OrdAux  = ""
CtaMst1Txl     = ""
CtaMst1RzaNd   = 5
CtaMst1CodTrat = 9
CtaMst1RefCt   = 0
CtaMst1RefCod  = 0
CtaMst1IvaAno  = ""
CtaMst1IvaPer  = ""
CtaMst1Ccusto  = 0
CtaMst1Pais    = 1
CtaMst1Moeda   = 1

'msgbox Ctamst1Ct & "><" & CtaMst1Nom
end sub

'- CtaMSt -------------------------------------   CLIENTES (ANAGRAFICOS)
Sub ImpCtaAng1Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCtCli)          'Conta Cliente
call TxtSepEA(tmp, ",", xNif)            'Nif

XNom1 = ""
If Left(tmp, 1) = Chr(34) Then        'tem aspa ?
   call TxtSepEA(tmp, ",", xNom)            'Nome
   call TxtSepEA(tmp, ",", xNom1)            'Nome
else
   call TxtSepEA(tmp, ",", xNom)            'Nome
end if
Xnom = XNom+Xnom1

'call TxtSepEA(tmp, ",", xNom)            'Nome
call TxtSepEA(tmp, ",", XMorada)         'Morada
call TxtSepEA(tmp, ",", xLocal)          'Local
call TxtSepEA(tmp, ",", xCPost)          'Codigo Postal

Call NumTxt(XCtCli, 5, "0", Tx)       'converter em texto/ajustar


CtaAng1Ct      = "21111"+Tx
CtaAng1Nom2    = ""
CtaAng1Morada  = XMorada
CtaAng1Local   = XLocal
CtaAng1Cpost   = XCPost
CtaAng1Nib     = ""
CtaAng1Cloc    = ""
CtaAng1Cae     = ""
CtaAng1Contacto= ""
CtaAng1Telef   = ""
CtaAng1Telem   = ""
CtaAng1Fax     = ""
CtaAng1Email   = ""
CtaAng1Web     = ""
CtaAng1Grp     = ""
CtaAng1Prc     = 0
CtaAng1Vend    = 0
CtaAng1Cpag    = 0
CtaAng1Desco   = ""
CtaAng1Trsp    = ""
CtaAng1CrdCtl  = 0
CtaAng1Rappel  = 0
CtaAng1CompAno = 0
CtaAng1ComAnt  = 0
CtaAng1Txl     = ""
CtaAng1Ender   = ""

'msgbox CtaAng1ct & "><" & CtaAng1Morada & "><" & CtaAng1Local & "><" & CtaAng1Cpost
end sub


'- CtaMSt -------------------------------------   FORNECEDORES (CONTAS)
Sub ImpCtaMst2Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'MSGBOX vtx

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCtCli)          'Conta Cliente
call TxtSepEA(tmp, ",", xNif)            'Nif

XNom1 = ""
If Left(tmp, 1) = Chr(34) Then        'tem aspa ?
   call TxtSepEA(tmp, ",", xNom)            'Nome
   call TxtSepEA(tmp, ",", xNom1)            'Nome
else
   call TxtSepEA(tmp, ",", xNom)            'Nome
end if
Xnom = XNom+Xnom1

'call TxtSepEA(tmp, ",", xNom)            'Nome
call TxtSepEA(tmp, ",", XMorada)         'Morada
call TxtSepEA(tmp, ",", xLocal)          'Local
call TxtSepEA(tmp, ",", xCPost)          'Codigo Postal

Call NumTxt(XCtCli, 5, "0", Tx)       'converter em texto/ajustar

CtaMst2Ct      = "22111"+Tx

TxtNom=TxtEliAspa(XNom)                  'eliminar aspas nos extremos
CtaMst2Nom     = TxtNom
CtaMst2Entid   = ""
CtaMst2Ctrb    = XNif
CtaMst2OrdAux  = ""
CtaMst2Txl     = ""
CtaMst2RzaNd   = 5
CtaMst2CodTrat = 9
CtaMst2RefCt   = 0
CtaMst2RefCod  = 0
CtaMst2IvaAno  = ""
CtaMst2IvaPer  = ""
CtaMst2Ccusto  = 0
CtaMst2Pais    = 1
CtaMst2Moeda   = 1

'msgbox Ctamst2Ct & "><" & CtaMst2Nom
end sub

'- CtaMSt -------------------------------------   CLIENTES (ANAGRAFICOS)
Sub ImpCtaAng2Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCtCli)          'Conta Cliente
call TxtSepEA(tmp, ",", xNif)            'Nif

XNom1 = ""
If Left(tmp, 1) = Chr(34) Then        'tem aspa ?
   call TxtSepEA(tmp, ",", xNom)            'Nome
   call TxtSepEA(tmp, ",", xNom1)            'Nome
else
   call TxtSepEA(tmp, ",", xNom)            'Nome
end if
Xnom = XNom+Xnom1

'call TxtSepEA(tmp, ",", xNom)            'Nome
call TxtSepEA(tmp, ",", XMorada)         'Morada
call TxtSepEA(tmp, ",", xLocal)          'Local
call TxtSepEA(tmp, ",", xCPost)          'Codigo Postal

Call NumTxt(XCtCli, 5, "0", Tx)       'converter em texto/ajustar


CtaAng2Ct      = "22111"+Tx
CtaAng2Nom2    = ""
CtaAng2Morada  = XMorada
CtaAng2Local   = XLocal
CtaAng2Cpost   = XCPost
CtaAng2Nib     = ""
CtaAng2Cloc    = ""
CtaAng2Cae     = ""
CtaAng2Contacto= ""
CtaAng2Telef   = ""
CtaAng2Telem   = ""
CtaAng2Fax     = ""
CtaAng2Email   = ""
CtaAng2Web     = ""
CtaAng2Grp     = ""
CtaAng2Prc     = 0
CtaAng2Vend    = 0
CtaAng2Cpag    = 0
CtaAng2Desco   = ""
CtaAng2Trsp    = ""
CtaAng2CrdCtl  = 0
CtaAng2Rappel  = 0
CtaAng2CompAno = 0
CtaAng2ComAnt  = 0
CtaAng2Txl     = ""
CtaAng2Ender   = ""
end sub

'- CtaMov -------------------------------------   CLIENTES
Sub ImpCtaMov1Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCt) 
call TxtSepEA(tmp, ",", xCcu)
call TxtSepEA(tmp, ",", xMes)
call TxtSepEA(tmp, ",", xTdo)
call TxtSepEA(tmp, ",", xDtl)
call TxtSepEA(tmp, ",", xDtv)
call TxtSepEA(tmp, ",", xDTipo)
call TxtSepEA(tmp, ",", xNdo)
call TxtSepEA(tmp, ",", xLixo1)
call TxtSepEA(tmp, ",", xVl)
call TxtSepEA(tmp, ",", xLixo2)
call TxtSepEA(tmp, ",", xDesc)
call TxtSepEA(tmp, ",", xLixo3)
XConta = ""
Xcnt   = "AA"

while xcnt <> ""
call TxtSepEA(Xct, ".", XCnt) 
XConta = XConta+XCnt
wend

CtaMov1Opc     = ""
if left(XConta,3) = "211"   then
  XCt = "21111"+right(XConta,5)
else
  Xct = Xconta
end if

CtaMov1Ct      = xCt                 'Conta
Dtb            = Xdtl                       ' Data
Call MovAjtDtl(Dtb, dtl)               'ajustar data
CtaMov1Dtl     = Dtl                      'data de lancamento
CtaMov1Dtv     = CtaMov1Dtl               'data de Vencimento
Ano            = left(XDtl,4)
CtaMov1Tdoc    = "F1"

CtaMov1Ndoc    = ano+"0000"+right(Xndo,4)
'CtaMov1Ndoc    = "00000000"+right(Xndo,4)

'DigNdoc        = 8 - len(XNdo)
'CtaMov1Ndoc    = Ano+String(DigNdoc,"0")+XNdo

UltXndo        = right(Xndo,4)
CtaMov1Cmov    = 0
CtaMov1Descr   = "Fat"+" nš "+UltXndo+"/"+Ano    'Tipo Documento


call TxtSepEA(Num, ".", XVlInt) 
VlTot = XVlInt+","+Num

CALL NumCnv(Xvl, VlTot)                          ' Conversao em numero

if VlTot > 0   then
    CtaMov1Tv    = "D"   
else
    CtaMov1Tv    = "C"
   VlTot = -1 * VlTot
end if

CtaMov1Vl    = VlTot
CtaMov1Div   = ""
CtaMov1Vme   = CtaMOv1Vl
CtaMov1Pais  = 1                          'Pais
CtaMov1Moeda = 1                         'Moeda
CtaMov1Cmb   = 1                         'Cambio

'msgbox CtaMov1Ct & ">" & CtaMov1Dtl & ">" & CtaMov1Dtv & ">" & Ctamov1Ndoc
'msgbox CtaMov1Tdoc & ">" & CtaMov1Descr & ">"  & CtaMov1Vl

'msgbox CtaMov1Tdoc & "< >" & CtaMov1Ndoc

'msgbox CtaMovvl
'msgbox Xval
end sub


'- CtaMov -------------------------------------   FORNECEDORES Faturas
Sub ImpCtaMov2Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCt) 
call TxtSepEA(tmp, ",", xCcu)
call TxtSepEA(tmp, ",", xMes)
call TxtSepEA(tmp, ",", xTdo)
call TxtSepEA(tmp, ",", xDtl)
call TxtSepEA(tmp, ",", xDtv)
call TxtSepEA(tmp, ",", xDTipo)
call TxtSepEA(tmp, ",", xNdo)
call TxtSepEA(tmp, ",", xLixo1)
call TxtSepEA(tmp, ",", xVl)
call TxtSepEA(tmp, ",", xLixo2)
call TxtSepEA(tmp, ",", xDesc)
call TxtSepEA(tmp, ",", xLixo3)
XConta = ""
Xcnt   = "AA"

while xcnt <> ""
call TxtSepEA(Xct, ".", XCnt) 
XConta = XConta+XCnt
wend

CtaMov2Opc     = ""
if left(XConta,3) = "221"   then
  XCt = "22111"+right(XConta,5)
  XDs = XDesc
else
  Xct = Xconta
end if

CtaMov2Ct      = xCt                 'Conta
Dtb            = Xdtl                       ' Data
Call MovAjtDtl(Dtb, dtl)               'ajustar data
CtaMov2Dtl     = Dtl                      'data de lancamento
CtaMov2Dtv     = CtaMov2Dtl               'data de Vencimento
Ano            = left(Dtl,4)
CtaMov2Tdoc    = "FF"

'CtaMov2Ndoc    = ano+"0000"+right(Xndo,4)
CtaMov2Ndoc    = "00000000"+right(Xndo,4)

'DigNdoc        = 8 - len(XNdo)
'CtaMov2Ndoc    = Ano+String(DigNdoc,"0")+XNdo

UltXndo        = right(Xndo,4)
CtaMov2Cmov    = 0

'CtaMov2Descr   = "V/Fat"+" nš "+UltXndo+"/"+Ano    'Tipo Documento
CtaMov2Descr   = "V/Fat"+" nš "+Xds    'Tipo Documento

call TxtSepEA(Num, ".", XVlInt) 
VlTot = XVlInt+","+Num

CALL NumCnv(Xvl, VlTot)                          ' Conversao em numero

if VlTot > 0   then
    CtaMov2Tv    = "D"   
else
    CtaMov2Tv    = "C"
   VlTot = -1 * VlTot
end if

CtaMov2Vl    = VlTot
CtaMov2Div   = ""
CtaMov2Vme   = CtaMOv2Vl
CtaMov2Pais  = 1                          'Pais
CtaMov2Moeda = 1                         'Moeda
CtaMov2Cmb   = 1                         'Cambio

'msgbox CtaMov1Ct & ">" & CtaMov1Dtl & ">" & CtaMov1Dtv & ">" & Ctamov1Ndoc
'msgbox CtaMov1Tdoc & ">" & CtaMov1Descr & ">"  & CtaMov1Vl

'msgbox CtaMov1Tdoc & "< >" & CtaMov1Ndoc

'msgbox CtaMovvl
'msgbox Xval
end sub

'- CtaMov -------------------------------------   FORNECEDORES Notas Credito
Sub ImpCtaMov3Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCt) 
call TxtSepEA(tmp, ",", xCcu)
call TxtSepEA(tmp, ",", xMes)
call TxtSepEA(tmp, ",", xTdo)
call TxtSepEA(tmp, ",", xDtl)
call TxtSepEA(tmp, ",", xDtv)
call TxtSepEA(tmp, ",", xDTipo)
call TxtSepEA(tmp, ",", xNdo)
call TxtSepEA(tmp, ",", xLixo1)
call TxtSepEA(tmp, ",", xVl)
call TxtSepEA(tmp, ",", xLixo2)
call TxtSepEA(tmp, ",", xDesc)
call TxtSepEA(tmp, ",", xLixo3)
XConta = ""
Xcnt   = "AA"

while xcnt <> ""
call TxtSepEA(Xct, ".", XCnt) 
XConta = XConta+XCnt
wend

CtaMov3Opc     = ""
if left(XConta,3) = "221"   then
  XCt = "22111"+right(XConta,5)
  XDs = XDesc
else
  Xct = Xconta
end if

CtaMov3Ct      = xCt                 'Conta
Dtb            = Xdtl                       ' Data
Call MovAjtDtl(Dtb, dtl)               'ajustar data
CtaMov3Dtl     = Dtl                      'data de lancamento
CtaMov3Dtv     = CtaMov3Dtl               'data de Vencimento
Ano            = left(Dtl,4)
CtaMov3Tdoc    = "NCF"

'CtaMov3Ndoc    = ano+"0000"+right(Xndo,4)
CtaMov3Ndoc    = "000000"+right(Xndo,6)

'DigNdoc        = 8 - len(XNdo)
'CtaMov3Ndoc    = Ano+String(DigNdoc,"0")+XNdo

UltXndo        = right(Xndo,4)
CtaMov3Cmov    = 0
'CtaMov3Descr   = "V/NC"+" nš "+UltXndo+"/"+Ano    'Tipo Documento
CtaMov3Descr   = "V/NC"+" nš "+Xds

call TxtSepEA(Num, ".", XVlInt) 
VlTot = XVlInt+","+Num

CALL NumCnv(Xvl, VlTot)                          ' Conversao em numero

if VlTot > 0   then
    CtaMov3Tv    = "D"   
else
    CtaMov3Tv    = "C"
   VlTot = -1 * VlTot
end if

CtaMov3Vl    = VlTot
CtaMov3Div   = ""
CtaMov3Vme   = CtaMOv3Vl
CtaMov3Pais  = 1                          'Pais
CtaMov3Moeda = 1                         'Moeda
CtaMov3Cmb   = 1                         'Cambio

'msgbox CtaMov1Ct & ">" & CtaMov1Dtl & ">" & CtaMov1Dtv & ">" & Ctamov1Ndoc
'msgbox CtaMov1Tdoc & ">" & CtaMov1Descr & ">"  & CtaMov1Vl

'msgbox CtaMov1Tdoc & "< >" & CtaMov1Ndoc

'msgbox CtaMovvl
'msgbox Xval
end sub


'- CtaMov -------------------------------------   RECIBOS
Sub ImpCtaMov4Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCt) 
call TxtSepEA(tmp, ",", xCcu)
call TxtSepEA(tmp, ",", xMes)
call TxtSepEA(tmp, ",", xTdo)
call TxtSepEA(tmp, ",", xDtl) 
call TxtSepEA(tmp, ",", xDTipo)
call TxtSepEA(tmp, ",", xNdo)
call TxtSepEA(tmp, ",", xLixo1)
call TxtSepEA(tmp, ",", xVl)
call TxtSepEA(tmp, ",", xLixo2)
call TxtSepEA(tmp, ",", xDesc)
call TxtSepEA(tmp, ",", xLixo3)
XConta = ""
Xcnt   = "AA"

while xcnt <> ""
call TxtSepEA(Xct, ".", XCnt) 
XConta = XConta+XCnt
wend

CtaMov4Opc     = ""
if left(XConta,3) = "211"   then
  XCt = "21111"+right(XConta,5)
else
  Xct = Xconta
end if

CtaMov4Ct      = xCt                 'Conta
Dtb            = Xdtl                       ' Data
Call MovAjtDtl(Dtb, dtl)               'ajustar data
CtaMov4Dtl     = Dtl                      'data de lancamento
CtaMov4Dtv     = CtaMov4Dtl               'data de Vencimento
Ano            = left(Dtl,4)
CtaMov4Tdoc    = "RE"

'CtaMov4Ndoc    = ano+"0000"+right(Xndo,4)
CtaMov4Ndoc    = "000000000"+right(Xndo,4)

'DigNdoc        = 8 - len(XNdo)
'CtaMov4Ndoc    = Ano+String(DigNdoc,"0")+XNdo

UltXndo        = right(Xndo,4)
CtaMov4Cmov    = 0
CtaMov4Descr   = "Rec"+" nš "+UltXndo+"/"+Ano    'Tipo Documento


call TxtSepEA(Num, ".", XVlInt) 
VlTot = XVlInt+","+Num

CALL NumCnv(Xvl, VlTot)                          ' Conversao em numero

if VlTot > 0   then
    CtaMov4Tv    = "D"   
else
    CtaMov4Tv    = "C"
   VlTot = -1 * VlTot
end if

CtaMov4Vl    = VlTot
CtaMov4Div   = ""
CtaMov4Vme   = CtaMOv4Vl
CtaMov4Pais  = 1                          'Pais
CtaMov4Moeda = 1                         'Moeda
CtaMov4Cmb   = 1                         'Cambio

'msgbox CtaMov1Ct & ">" & CtaMov1Dtl & ">" & CtaMov1Dtv & ">" & Ctamov1Ndoc
'msgbox CtaMov1Tdoc & ">" & CtaMov1Descr & ">"  & CtaMov1Vl

'msgbox CtaMov1Tdoc & "< >" & CtaMov1Ndoc

'msgbox CtaMovvl
'msgbox Xval
end sub


'- CtaMov -------------------------------------   NOTAS PAGAMENTO
Sub ImpCtaMov5Cnv(vtx) 'conversao de valores
'vtx        - valor em texto

'separar campos
tmp = vtx                              'copiar valor

call TxtSepEA(tmp, ",", XCt) 
call TxtSepEA(tmp, ",", xCcu)
call TxtSepEA(tmp, ",", xMes)
call TxtSepEA(tmp, ",", xTdo)
call TxtSepEA(tmp, ",", xDtl) 
call TxtSepEA(tmp, ",", xDTipo)
call TxtSepEA(tmp, ",", xNdo)
call TxtSepEA(tmp, ",", xLixo1)
call TxtSepEA(tmp, ",", xVl)
call TxtSepEA(tmp, ",", xLixo2)
call TxtSepEA(tmp, ",", xDesc)
call TxtSepEA(tmp, ",", xLixo3)
XConta = ""
Xcnt   = "AA"

while xcnt <> ""
call TxtSepEA(Xct, ".", XCnt) 
XConta = XConta+XCnt
wend

CtaMov5Opc     = ""
if left(XConta,3) = "221"   then
  XCt = "22111"+right(XConta,5)
else
  Xct = Xconta
end if

CtaMov5Ct      = xCt                 'Conta
Dtb            = Xdtl                       ' Data
Call MovAjtDtl(Dtb, dtl)               'ajustar data
CtaMov5Dtl     = Dtl                      'data de lancamento
CtaMov5Dtv     = CtaMov5Dtl               'data de Vencimento
Ano            = left(Dtl,4)
CtaMov5Tdoc    = "EPG"

'CtaMov5Ndoc    = ano+"0000"+right(Xndo,4)
CtaMov5Ndoc    = "000000000"+right(Xndo,4)

'DigNdoc        = 8 - len(XNdo)
'CtaMov5Ndoc    = Ano+String(DigNdoc,"0")+XNdo

UltXndo        = right(Xndo,4)
CtaMov5Cmov    = 0
CtaMov5Descr   = "N.P."+"nš "+UltXndo+"/"+Ano    'Tipo Documento


call TxtSepEA(Num, ".", XVlInt) 
VlTot = XVlInt+","+Num

CALL NumCnv(Xvl, VlTot)                          ' Conversao em numero

if VlTot > 0   then
    CtaMov5Tv    = "D"   
else
    CtaMov5Tv    = "C"
   VlTot = -1 * VlTot
end if

CtaMov5Vl    = VlTot
CtaMov5Div   = ""
CtaMov5Vme   = CtaMOv5Vl
CtaMov5Pais  = 1                          'Pais
CtaMov5Moeda = 1                         'Moeda
CtaMov5Cmb   = 1                         'Cambio

'msgbox CtaMov1Ct & ">" & CtaMov1Dtl & ">" & CtaMov1Dtv & ">" & Ctamov1Ndoc
'msgbox CtaMov1Tdoc & ">" & CtaMov1Descr & ">"  & CtaMov1Vl

'msgbox CtaMov1Tdoc & "< >" & CtaMov1Ndoc

'msgbox CtaMovvl
'msgbox Xval
end sub


Sub ImpCtaMst1Ajt() 'ajuste de dados
'vtx        - valor em texto
end sub

Sub ImpCtaAng1Ajt() 'ajuste de dados
'vtx        - valor em texto
end sub

Sub ImpCtaMst2Ajt() 'ajuste de dados
'vtx        - valor em texto
end sub

Sub ImpCtaAng2Ajt() 'ajuste de dados
'vtx        - valor em texto
end sub

Sub ImpCtaMov1Ajt() 'ajuste de dados
'vtx        - valor em texto

'msgbox "CtaMov - Ajt"
'CtaMovCt    = "X" & CtaMovCt
end sub

Sub ImpCtaMov2Ajt() 'ajuste de dados
'vtx        - valor em texto

'msgbox "CtaMov - Ajt"
'CtaMovCt    = "X" & CtaMovCt
end sub

Sub ImpCtaMov3Ajt() 'ajuste de dados
'vtx        - valor em texto

'msgbox "CtaMov - Ajt"
'CtaMovCt    = "X" & CtaMovCt
end sub

Sub ImpCtaMov4Ajt() 'ajuste de dados
'vtx        - valor em texto

'msgbox "CtaMov - Ajt"
'CtaMovCt    = "X" & CtaMovCt
end sub

Sub ImpCtaMov5Ajt() 'ajuste de dados
'vtx        - valor em texto

'msgbox "CtaMov - Ajt"
'CtaMovCt    = "X" & CtaMovCt
end sub

'---------------------------------------------------

Function ImpCtaMst1Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

ok = 1                                 'assume valido
ImpCtaMst1Val = ok                      'devolver resultado
end function

Function ImpCtaAng1Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

ok = 1                                 'assume valido
ImpCtaAng1Val = ok                      'devolver resultado
end function

Function ImpCtaMst2Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

ok = 1                                 'assume valido
ImpCtaMst2Val = ok                      'devolver resultado
end function

Function ImpCtaAng2Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

ok = 1                                 'assume valido
ImpCtaAng2Val = ok                      'devolver resultado
end function


Function ImpCtaMov1Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

'msgbox "CtaMov - Val"
ok = 1                                 'assume valido
'if CtaMovVln < 500 then ok = 0         'limitar valor
'terminar
ImpCtaMov1Val = ok                      'devolver resultado
end function

Function ImpCtaMov2Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

'msgbox "CtaMov - Val"
ok = 1                                 'assume valido
'if CtaMovVln < 500 then ok = 0         'limitar valor
'terminar
ImpCtaMov2Val = ok                      'devolver resultado
end function

Function ImpCtaMov3Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

'msgbox "CtaMov - Val"
ok = 1                                 'assume valido
'if CtaMovVln < 500 then ok = 0         'limitar valor
'terminar
ImpCtaMov3Val = ok                      'devolver resultado
end function

Function ImpCtaMov4Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

'msgbox "CtaMov - Val"
ok = 1                                 'assume valido
'if CtaMovVln < 500 then ok = 0         'limitar valor
'terminar
ImpCtaMov4Val = ok                      'devolver resultado
end function

Function ImpCtaMov5Val() 'validar dados
'ok         - validade (0 nao, 1 sim)

'msgbox "CtaMov - Val"
ok = 1                                 'assume valido
'if CtaMovVln < 500 then ok = 0         'limitar valor
'terminar
ImpCtaMov5Val = ok                      'devolver resultado
end function

##

