PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Screen WINDOWS _16V0ME1TO 812602199 WINDOWS _16V0ME1TP1185644770 WINDOWS _16V0MNV1U 812602444 COMMENT RESERVED VERSION = 3.00 dataenvironment dataenvironment Dataenvironment YTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" FORM1 Top = 142 Left = 105 Height = 58 Width = 116 DoCreate = .T. Caption = "Cria o do Ficheiro Modelo 3" Icon = ..\shared\icons\gdg2000.ico Name = "FORM1" PROCEDURE filecreate lparam _ana, _anb _trm3=0 _trdec=0 _trfic=0 _traa=0 _trab=0 _trac=0 local lnind lnind = 0 if !file(_m3filename) filehandle=fcreate(_m3filename) filehandle=fopen(_m3filename,2) endif Registo Header do Ficheiro rec="001ASCII08"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",141)+chr(13)+chr(10) =FWRITE(FileHandle,rec) Registo Header da declara rec="002" rec=rec+"Mod.03" rec=rec+TRANSFORM(ED("M3",1,"1",2), "@L 9999") rec=rec+TRANSFORM(ED("M3",1,"2",1), "@L 9999") rec=rec+transform(ED("M3",1,"3",3), "@l 999999999") If ed("M3",1,"7",2)>=60 rec=rec+TRANSFORM(Ed("M3",1,"3",5), "@L 999") rec=rec+"000" Endif if ed("M3",1,"3",7)="S" or ed("M3",1,"3",7)="s" REC=REC+"S" REC=REC+"N" endif rec=rec+transform(ED("M3",1,"3",4), "@l 999999999") If ed("M3",1,"3",6)>=60 rec=rec+TRANSFORM(Ed("M3",1,"3",6), "@L 999") rec=rec+"000" Endif if ed("M3",1,"3",8)="S" or ed("M3",1,"3",8)="s" REC=REC+"S" REC=REC+"N" endif rec=rec+replic(" ",116)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 Registo -- Header do Modelo 3 rec="003" rec=rec+TRANSFORM(ED("M3",1,"3",9), "@L 99") rec=rec+TRANSFORM(ED("M3",1,"3",10), "@L 99") REC=REC+TRANSFORM(ed("M3",1,"3",11),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",12),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",13),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",14),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",15),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",16),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",17),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"3",18),"@L 999999999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999999999") rec=rec+replic(" ",26)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="004" REC=REC+TRANSFORM(ed("M3",1,"3",19),"@L 999999999") if ed("M3",1,"3",23)>=60 rec=rec+TRANSFORM(Ed("M3",1,"3",23), "@L 999") rec=rec+"000" Endif if ed("M3",1,"3",27)="S" or ed("M3",1,"3",27)="s" REC=REC+"S" REC=REC+"N" endif REC=REC+TRANSFORM(ed("M3",1,"3",20),"@L 999999999") if ed("M3",1,"3",24)>=60 rec=rec+TRANSFORM(Ed("M3",1,"3",24), "@L 999") rec=rec+"000" Endif if ed("M3",1,"3",28)="S" or ed("M3",1,"3",28)="s" REC=REC+"S" REC=REC+"N" endif REC=REC+TRANSFORM(ed("M3",1,"3",21),"@L 999999999") if ed("M3",1,"3",25)>=60 rec=rec+TRANSFORM(Ed("M3",1,"3",25), "@L 999") rec=rec+"000" Endif if ed("M3",1,"3",29)="S" or ed("M3",1,"3",29)="s" REC=REC+"S" REC=REC+"N" endif REC=REC+TRANSFORM(ed("M3",1,"3",22),"@L 999999999") if ed("M3",1,"3",26)>=60 rec=rec+TRANSFORM(Ed("M3",1,"3",26), "@L 999") rec=rec+"000" Endif if ed("M3",1,"3",30)="S" or ed("M3",1,"3",30)="s" REC=REC+"S" REC=REC+"N" endif REC=REC+TRANSFORM(0,"@L 999999999") && DEPENDENTE 5 N O MENCIONANDO NA DECLARA rec=rec+"000" REC=REC+"N" REC=REC+TRANSFORM(0,"@L 999999999") && DEPENDENTE 6 N O MENCIONANDO NA DECLARA rec=rec+"000" REC=REC+"N" REC=REC+TRANSFORM(0,"@L 999999999") && DEPENDENTE 7 N O MENCIONANDO NA DECLARA rec=rec+"000" REC=REC+"N" REC=REC+TRANSFORM(0,"@L 999999999") && DEPENDENTE 8 N O MENCIONANDO NA DECLARA rec=rec+"000" REC=REC+"N" rec=rec+TRANSFORM(ed("M3",1,"3",31), "@L 9") rec=rec+TRANSFORM(ed("M3",1,"3",32), "@L 99") If ED("M3",1,"4",1) = 1 rec=rec+"1" rec=rec+"2" Endif If ED("M3",1,"4",3) = 1 rec=rec+"3" If ED("M3",1,"4",4) = 1 rec=rec+"4" ELSE rec=rec+"0" endif Endif rec=rec+TRANSFORM(YEAR(ed("M3",1,"4",5)), "@l 9999")+TRANSFORM(month(ed("M3",1,"4",5)), "@l 99")+TRANSFORM(day(ed("M3",1,"4",5)), "@l 99") Do case case ED("M3",1,"5",1) = 1 rec=rec+"1" case ED("M3",1,"5",2) = 1 rec=rec+"2" case ED("M3",1,"5",3) = 1 rec=rec+"3" otherwise rec=rec+"0" Endcase If !EMPTY(ED("M3",1,"5",4)) rec=rec+alltrim(str(ED("M3",1,"5",4))) rec=rec+replic("0",9) Endif DO case CASE !EMPTY(ED("M3",1,"5",5)) rec=rec+"5" CASE !EMPTY(ED("M3",1,"5",6)) rec=rec+"6" OTHERWISE rec=rec+"0" ENDCASE If !EMPTY(ED("M3",1,"5",7)) rec=rec+transform(ED("M3",1,"5",7), "@l 999") rec=rec+replic("0",3) Endif If !EMPTY(ED("M3",1,"5",8)) rec=rec+transform(ED("M3",1,"5",8), "@l 999999999999999") rec=rec+replic("0",15) Endif Do case case ED("M3",1,"6",1) = 1 rec=rec+"1" case ED("M3",1,"6",2) = 1 rec=rec+"2" case ED("M3",1,"6",3) = 1 rec=rec+"3" case ED("M3",1,"6",4) = 1 rec=rec+"4" otherwise rec=rec+"1" Endcase rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm3=_trm3+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo - DETALHE DA MODELO 3 rec="005" REC=REC+TRANSFORM(ed("M3",1,"7",23),"@L 999999999") If ed("M3",1,"7",24)>=60 rec=rec+TRANSFORM(Ed("M3",1,"7",24), "@L 999") rec=rec+"000" Endif if ed("M3",1,"7",25)=1 REC=REC+"S" REC=REC+"N" endif REC=REC+TRANSFORM(ed("M3",1,"7",27),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"7",30),"@L 999") REC=REC+TRANSFORM(ed("M3",1,"7",28),"@L 999999999") REC=REC+TRANSFORM(ed("M3",1,"7",31),"@L 999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999") REC=REC+TRANSFORM(0,"@L 999999999") REC=REC+TRANSFORM(0,"@L 999") REC=REC+padl(TRANSFORM(ed("M3",1,"7",29),"@L 999999999999999999999"),21,"0") rec=rec+"N" If ED("M3",1,"8",1)=0 REC=REC+"0" rec=rec+"1" Endif If ED("M3",1,"8",2)=0 REC=REC+"0" rec=rec+TRANSFORM(ED("M3",1,"8",2), "@L 9") Endif If ED("M3",1,"8",3)=0 REC=REC+"0" rec=rec+TRANSFORM(ED("M3",1,"8",3), "@L 9") Endif If ED("M3",1,"8",4)=0 REC=REC+"0" rec=rec+TRANSFORM(ED("M3",1,"8",4), "@L 9") Endif If ED("M3",1,"8",5)=0 REC=REC+"0" rec=rec+"1" Endif If ED("M3",1,"8",6)=0 REC=REC+"0" rec=rec+"1" Endif If ED("M3",1,"8",7)=0 REC=REC+"0" rec=rec+"1" Endif If ED("M3",1,"8",8)=0 REC=REC+"0" rec=rec+"1" Endif If ED("M3",1,"8",9)=0 REC=REC+"0" rec=rec+"1" Endif If ED("M3",1,"8",10)=0 REC=REC+"0" rec=rec+TRANSFORM(ED("M3",1,"8",10), "@L 9") Endif If ED("M3",1,"8",11)=0 REC=REC+"0" rec=rec+TRANSFORM(ED("M3",1,"8",11), "@L 9") Endif rec=rec+replic(" ",62)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm3=_trm3+1 _trdec=_trdec+1 _trfic=_trfic+1 *---------------------------------------------------------------------- Registo ----- Trailer da Modelo 3 rec="006" rec=rec+transform(_trm3,"@l 999") rec=rec+replic(" ",153)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 *---------------------------------------------------------------------- * A01 Registo ----- Header do Anexo A If ED("M3",1,"8",1)!=0 Rec="A01" Rec=rec+TRANSFORM(ed("M3A",1,"3",1),"@L 999999999") Rec=rec+TRANSFORM(ed("M3A",1,"3",2),"@L 999999999") Rec=rec+TRANSFORM(ed("M3A",1,"4",1),"@L 999999999") Rec=rec+TRANSFORM(ed("M3A",1,"4",2),"@L 999999999") Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" Rec=rec+"000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) *!* _trm3=0 ???????? _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A02 Registo -------- Detalhe do Anexo A(1) Rec="A02" rec=rec+transval(ed("M3A",1,"4",3),12) rec=rec+transval(ed("M3A",1,"4",4),12) rec=rec+transval(ed("M3A",1,"4",5),12) rec=rec+transval(ed("M3A",1,"4",6),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A03 Registo -------- Detalhe do Anexo A(2) Rec="A03" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",7),12) rec=rec+transval(ed("M3A",1,"4",8),12) rec=rec+transval(ed("M3A",1,"4",9),12) rec=rec+transval(ed("M3A",1,"4",10),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A04 Registo -------- Detalhe do Anexo A(3) Rec="A04" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",11),12) rec=rec+transval(ed("M3A",1,"4",12),12) rec=rec+transval(ed("M3A",1,"4",13),12) rec=rec+transval(ed("M3A",1,"4",14),12) rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A05 Registo -------- Detalhe do Anexo A(4) Rec="A05" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A06 Registo -------- Detalhe do Anexo A(5) Rec="A06" rec=rec+transval(ed("M3A",1,"4",15),12) rec=rec+transval(ed("M3A",1,"4",16),12) rec=rec+transval(ed("M3A",1,"4",17),12) rec=rec+transval(ed("M3A",1,"4",18),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A07 Registo -------- Detalhe do Anexo A(6) Rec="A07" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",108)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A08 Registo -------- Detalhe do Anexo A(7) Rec="A08" rec=rec+TRANSFORM(ED("M3A",1,"4",19), "@L 999") rec=rec+transval(ed("M3A",1,"4",20),12) rec=rec+transval(ed("M3A",1,"4",21),12) rec=rec+transval(ed("M3A",1,"4",22),12) rec=rec+transval(ed("M3A",1,"4",23),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A09 Registo -------- Detalhe do Anexo A(8) Rec="A09" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",108)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A10 Registo -------- Detalhe do Anexo A(9) Rec="A10" rec=rec+TRANSFORM(ED("M3A",1,"4",24), "@L 999") rec=rec+transval(ed("M3A",1,"4",25),12) rec=rec+transval(ed("M3A",1,"4",26),12) rec=rec+transval(ed("M3A",1,"4",27),12) rec=rec+transval(ed("M3A",1,"4",28),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A11 Registo -------- Detalhe do Anexo A(10) Rec="A11" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",108)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A12 Registo -------- Detalhe do Anexo A(11) Rec="A12" rec=rec+"000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A13 Registo -------- Detalhe do Anexo A(12) Rec="A13" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",108)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A14 Registo -------- Detalhe do Anexo A(13) Rec="A14" rec=rec+"000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A15 Registo -------- Detalhe do Anexo A(14) Rec="A15" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",108)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A16 Registo -------- Detalhe do Anexo A(15) Rec="A16" rec=rec+"000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A17 Registo -------- Detalhe do Anexo A(16) Rec="A17" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",108)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A18 Registo -------- Detalhe do Anexo A(17) Rec="A18" rec=rec+transval(ed("M3A",1,"4",29),12) rec=rec+transval(ed("M3A",1,"4",30),12) rec=rec+transval(ed("M3A",1,"4",31),12) rec=rec+transval(ed("M3A",1,"4",32),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A19 Registo -------- Detalhe do Anexo A(18) Rec="A19" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",33),12) rec=rec+transval(ed("M3A",1,"4",34),12) rec=rec+transval(ed("M3A",1,"4",35),12) rec=rec+transval(ed("M3A",1,"4",36),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A20 Registo -------- Detalhe do Anexo A(19) Rec="A20" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",37),12) rec=rec+transval(ed("M3A",1,"4",38),12) rec=rec+transval(ed("M3A",1,"4",39),12) rec=rec+transval(ed("M3A",1,"4",40),12) rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A21 Registo -------- Detalhe do Anexo A(20) Rec="A21" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A22 Registo -------- Detalhe do Anexo A(21) Rec="A22" rec=rec+transval(ed("M3A",1,"4",41),12) rec=rec+transval(ed("M3A",1,"4",42),12) rec=rec+transval(ed("M3A",1,"4",43),12) rec=rec+transval(ed("M3A",1,"4",44),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A23 Registo -------- Detalhe do Anexo A(22) Rec="A23" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",45),12) rec=rec+transval(ed("M3A",1,"4",46),12) rec=rec+transval(ed("M3A",1,"4",47),12) rec=rec+transval(ed("M3A",1,"4",48),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A24 Registo -------- Detalhe do Anexo A(23) Rec="A24" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",49),12) rec=rec+transval(ed("M3A",1,"4",50),12) rec=rec+transval(ed("M3A",1,"4",51),12) rec=rec+transval(ed("M3A",1,"4",52),12) rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A25 Registo -------- Detalhe do Anexo A(24) Rec="A25" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A26 Registo -------- Detalhe do Anexo A(25) Rec="A26" rec=rec+transval(ed("M3A",1,"4",53),12) rec=rec+transval(ed("M3A",1,"4",54),12) rec=rec+transval(ed("M3A",1,"4",55),12) rec=rec+transval(ed("M3A",1,"4",56),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A27 Registo -------- Detalhe do Anexo A(26) Rec="A27" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",57),12) rec=rec+transval(ed("M3A",1,"4",58),12) rec=rec+transval(ed("M3A",1,"4",59),12) rec=rec+transval(ed("M3A",1,"4",60),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A28 Registo -------- Detalhe do Anexo A(27) Rec="A28" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",85),12) rec=rec+transval(ed("M3A",1,"4",86),12) rec=rec+transval(ed("M3A",1,"4",87),12) rec=rec+transval(ed("M3A",1,"4",88),12) rec=rec+"000000000000" rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A29 Registo -------- Detalhe do Anexo A(29) Rec="A29" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",61),12) rec=rec+transval(ed("M3A",1,"4",62),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A30 Registo -------- Detalhe do Anexo A(29) Rec="A30" rec=rec+transval(ed("M3A",1,"4",63),12) rec=rec+transval(ed("M3A",1,"4",64),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A31 Registo -------- Detalhe do Anexo A(30) Rec="A31" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",65),12) rec=rec+transval(ed("M3A",1,"4",66),12) rec=rec+transval(ed("M3A",1,"4",67),12) rec=rec+transval(ed("M3A",1,"4",68),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A32 Registo -------- Detalhe do Anexo A(31) Rec="A32" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",69),12) rec=rec+transval(ed("M3A",1,"4",70),12) rec=rec+transval(ed("M3A",1,"4",71),12) rec=rec+transval(ed("M3A",1,"4",72),12) rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+REPLICATE(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A33 Registo -------- Detalhe do Anexo A(32) Rec="A33" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+"000000000000" rec=rec+transval(ed("M3A",1,"4",73),15) rec=rec+transval(ed("M3A",1,"4",74),15) rec=rec+REPLICATE(" ",30)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A34 Registo -------- Detalhe do Anexo A(33) Rec="A34" rec=rec+transval(ed("M3A",1,"4",75),15) rec=rec+transval(ed("M3A",1,"4",76),15) rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+replic(" ",6)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A35 Registo -------- Detalhe do Anexo A(34) Rec="A35" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+"000000000000000" rec=rec+replic(" ",96)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A36 Registo -------- Detalhe do Anexo A(35) Rec="A36" rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",77))), "@l 99999999") rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",78))), "@l 99999999") rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",79))), "@l 99999999") rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",80))), "@l 99999999") rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic(" ",28)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A37 Registo -------- Detalhe do Anexo A(36) Rec="A37" rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",81))), "@l 99999999") rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",82))), "@l 99999999") rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",83))), "@l 99999999") rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",84))), "@l 99999999") rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic("0",8) rec=rec+replic(" ",28)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A38 Registo -------- Detalhe do Anexo A(37) Rec="A38" rec=rec+"00" rec=rec+" " rec=rec+"000000000000" rec=rec+"000000000" rec=rec+"000" rec=rec+"000000000000" rec=rec+replic(" ",115)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A39 Registo -------- Detalhe do Anexo A(38) Rec="A39" rec=rec+transval(ed("M3A",1,"5",1),12) Rec=rec+TRANSFORM(ed("M3A",1,"5",3),"@L 9") rec=rec+transval(ed("M3A",1,"5",2),12) Rec=rec+TRANSFORM(ed("M3A",1,"5",4),"@L 9") rec=rec+transval(ed("M3A",1,"5",5),12) Rec=rec+TRANSFORM(ed("M3A",1,"5",7),"@L 9") rec=rec+transval(ed("M3A",1,"5",6),12) Rec=rec+TRANSFORM(ed("M3A",1,"5",8),"@L 9") rec=rec+transval(ed("M3A",1,"6",1),12) rec=rec+transval(ed("M3A",1,"6",2),12) rec=rec+transval(ed("M3A",1,"6",3),12) rec=rec+replic(" ",68)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 *------------------------------------------------------------------------ * A40 Registo -------- Detalhe do Anexo A(39) local lnind_ocur, lntot_inhas lnind_ocur = 0 lntot_linhas = 0 for lnind_ocur = 1 to 5 if !empty(ED("M3",1,"7",lnind_ocur)) lntot_linhas = lntot_linhas + 1 Rec="A40" rec=rec+transform(lnind_ocur, "@L 999") rec=rec+TRANSFORM(ed("M3A",1,"7",lnind_ocur),"@L 999999999") rec=rec+TRANSFORM(ed("M3A",1,"7",lnind_ocur + 5),"@L 999") rec=rec+padr(ed("M3A",1,"7",lnind_ocur + 10), 3, " ") rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 15),12) rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 20),12) rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 26),12) rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 31),12) rec=rec+replic(" ",90)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _traa=_traa+1 _trdec=_trdec+1 _trfic=_trfic+1 endif endfor *------------------------------------------------------------------------ * A40 Registo -------- Trailer Anexo A Rec="A41" rec=rec+transform(_traa, "@l 999") *!* do case *!* case ! empty(ed("M3A",1,"3",1)) and ! empty(ed("M3A",1,"3",2)) and ! empty(ed("M3A",1,"4",1)) and ! empty(ed("M3A",1,"4",2)) *!* indexcont=4 *!* case ! empty(ed("M3A",1,"3",1)) and ! empty(ed("M3A",1,"3",2)) and ! empty(ed("M3A",1,"4",1)) *!* indexcont=3 *!* case ! empty(ed("M3A",1,"3",1)) and ! empty(ed("M3A",1,"3",2)) *!* indexcont=2 *!* *!* otherwise *!* *!* indexcont=1 *!* Endcase rec=rec+transval(ed("M3A",1,"4",73)+ed("M3A",1,"4",74)+ed("M3A",1,"4",75)+ed("M3A",1,"4",76),17) rec=rec+"00" rec=rec+"000000000000000" rec=rec+transval(ed("M3A",1,"5",1)+ed("M3A",1,"5",2)+ed("M3A",1,"5",5)+ed("M3A",1,"5",6),13) rec=rec+transform(lntot_linhas, "@l 999") rec=rec+transval(ed("M3A",1,"7",16)+ed("M3A",1,"7",17)+ed("M3A",1,"7",18)+ed("M3A",1,"7",19)+ed("M3A",1,"7",20),15) rec=rec+transval(ed("M3A",1,"7",21)+ed("M3A",1,"7",22)+ed("M3A",1,"7",23)+ed("M3A",1,"7",24)+ed("M3A",1,"7",25),15) rec=rec+transval(ed("M3A",1,"7",27)+ed("M3A",1,"7",28)+ed("M3A",1,"7",29)+ed("M3A",1,"7",30)+ed("M3A",1,"7",31),15) rec=rec+transval(ed("M3A",1,"7",32)+ed("M3A",1,"7",33)+ed("M3A",1,"7",34)+ed("M3A",1,"7",35)+ed("M3A",1,"7",36),15) rec=rec+replic(" ",43)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Endif *-------------------------------------------------------------------- Fim do Anexo A * B01 Registo ----- Header do Anexo B If ED("M3",1,"8",2)!=0 Rec="B01" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif Rec=rec+TRANSFORM(ed("M3B",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",7),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"2",1),"@L 9999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") If ed("M3B",1,"1",1)=1 rec=rec+"1" rec=rec+"2" Endif If ed("M3B",1,"1",3)=1 rec=rec+"3" rec=rec+"0" Endif If ed("M3B",1,"1",4)=1 rec=rec+"4" rec=rec+"0" Endif IF empty(ed("M3B",1,"3",10)) REC=REC+" " Rec=rec+TRANSFORM(ed("M3B",1,"3",10),"@L 9999") ENDIF IF EMPTY(ed("M3B",1,"3",11)) REC=REC+" " Rec=rec+TRANSFORM(ed("M3B",1,"3",11),"@L 99999") ENDIF IF empty(ed("M3B",1,"3",12)) REC=REC+" " Rec=rec+TRANSFORM(ed("M3B",1,"3",12),"@L 99999") Endif If ed("M3B",1,"3",13)=1 rec=rec+"13" rec=rec+"14" Endif rec=rec+transval(ed("M3B",1,"4",401),12) rec=rec+transval(ed("M3B",1,"4",402),12) rec=rec+replic(" ",63)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 * B02 Registo ----- Detalhe do Anexo B(1) Rec="B02" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",1,"4",403),12) rec=rec+transval(ed("M3B",1,"4",404),12) rec=rec+transval(ed("M3B",1,"4",405),12) rec=rec+transval(ed("M3B",1,"4",420),12) rec=rec+transval(ed("M3B",1,"4",421),13) rec=rec+transval(ed("M3B",1,"4",406),12) rec=rec+transval(ed("M3B",1,"4",407),12) rec=rec+transval(ed("M3B",1,"4",408),13) rec=rec+transval(ed("M3B",1,"4",409),12) rec=rec+transval(ed("M3B",1,"4",410),12) rec=rec+transval(ed("M3B",1,"4",411),12) rec=rec+REPLICATE(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 * B03 Registo ----- Detalhe do Anexo B(2) Rec="B03" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",1,"4",412),13) rec=rec+transval(ed("M3B",1,"4",413),12) rec=rec+transval(ed("M3B",1,"4",414),12) rec=rec+transval(ed("M3B",1,"4",415),13) If ed("M3B",1,"4",1)=1 rec=rec+"1" rec=rec+"2" Endif If ed("M3B",1,"4",3)=1 rec=rec+"3" rec=rec+"4" Endif If ed("M3B",1,"4",5)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+TRANSFORM(ed("M3B",1,"4",418),"@L 999") rec=rec+transval(ed("M3B",1,"4",416),12) rec=rec+transval(ed("M3B",1,"4",417),12) If ed("M3B",1,"4",7)=1 rec=rec+"3" rec=rec+"4" Endif rec=rec+transval(ed("M3B",1,"4",419),12) rec=rec+transval(ed("M3B",1,"5",501),12) rec=rec+transval(ed("M3B",2,"6",601),12) rec=rec+transval(ed("M3B",2,"6",602),12) rec=rec+transval(ed("M3B",2,"6",603),13) rec=rec+replic(" ",4)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 * B04 Registo ----- Detalhe do Anexo B(3) Rec="B04" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",2,"7",701),13) rec=rec+transval(ed("M3B",2,"7",702),13) rec=rec+transval(ed("M3B",2,"7",703),13) rec=rec+transval(ed("M3B",2,"7",704),13) rec=rec+replic(" ",94)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 * B05 Registo ----- Detalhe do Anexo B(4) * 705 -> 716 for lnind = 705 to 716 if !empty(ed("M3B",2,"7",lnind)) or !empty(ed("M3B",2,"7",lnind+12)) Rec="B05" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Else Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" Else rec=rec+"2" Endif rec=rec+transform(lnind, "@L 9999") Rec=rec+TRANSFORM(ed("M3B",2,"7",lnind),"@L 999999999") rec=rec+transval(ed("M3B",2,"7",lnind+12),13) rec=rec+replic(" ",120)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 endif endfor * B06 Registo ----- Detalhe do Anexo B(5) Rec="B06" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif Rec=rec+TRANSFORM(ed("M3B",2,"8",801),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",2,"8",802),"@L 9999") Rec=rec+TRANSFORM(ed("M3B",2,"8",803),"@L 9999") Rec=rec+TRANSFORM(ed("M3B",2,"8",804),"@L 9999") Rec=rec+TRANSFORM(ed("M3B",2,"8",805),"@L 9999") Rec=rec+TRANSFORM(ed("M3B",2,"8",806),"@L 9999") Rec=rec+TRANSFORM(ed("M3B",2,"8",807),"@L 9999") rec=rec+transval(ed("M3B",2,"8",808),12) rec=rec+transval(ed("M3B",2,"8",809),12) rec=rec+transval(ed("M3B",2,"8",810),12) rec=rec+transval(ed("M3B",2,"8",811),12) rec=rec+transval(ed("M3B",2,"8",812),12) rec=rec+transval(ed("M3B",2,"8",813),12) rec=rec+transval(ed("M3B",2,"8",814),12) rec=rec+transval(ed("M3B",2,"8",815),12) rec=rec+replic(" ",17)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 * B07 Registo ----- Detalhe do Anexo B(6) Rec="B07" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",2,"8",816),12) rec=rec+transval(ed("M3B",2,"8",817),12) rec=rec+transval(ed("M3B",2,"8",818),12) rec=rec+transval(ed("M3B",2,"8",819),12) rec=rec+transval(ed("M3B",2,"9",901),12) rec=rec+transval(ed("M3B",2,"9",902),12) rec=rec+transval(ed("M3B",2,"9",903),12) rec=rec+transval(ed("M3B",2,"9",904),12) rec=rec+transval(ed("M3B",2,"9",905),12) rec=rec+transval(ed("M3B",2,"9",906),12) rec=rec+transval(ed("M3B",2,"9",907),12) rec=rec+replic(" ",14)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 * B08 Registo ----- Detalhe do Anexo B(7) Rec="B08" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",2,"9",908),12) rec=rec+transval(ed("M3B",2,"9",909),15) rec=rec+transval(ed("M3B",2,"9",910),12) rec=rec+transval(ed("M3B",2,"9",911),12) rec=rec+transval(ed("M3B",2,"9",912),12) rec=rec+transval(ed("M3B",2,"9",913),12) rec=rec+transval(ed("M3B",2,"9",914),12) rec=rec+transval(ed("M3B",2,"9",915),12) rec=rec+transval(ed("M3B",2,"9",916),12) rec=rec+transval(ed("M3B",2,"9",917),12) rec=rec+transval(ed("M3B",2,"9",918),15) rec=rec+replic(" ",8)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 *B09 Registo ----- Detalhe do Anexo B(8) Rec="B09" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",2,"10",1001),12) rec=rec+transval(ed("M3B",2,"10",1002),12) rec=rec+transval(ed("M3B",2,"10",1003),13) rec=rec+transval(ed("M3B",2,"11",1101),13) rec=rec+transval(ed("M3B",2,"11",1102),13) rec=rec+transval(ed("M3B",2,"11",1103),12) rec=rec+transval(ed("M3B",2,"11",1104),12) rec=rec+transval(ed("M3B",2,"11",1105),12) rec=rec+transval(ed("M3B",2,"11",1106),12) If ed("M3B",2,"12",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+TRANSFORM(year(ed("M3B",2,"12",3)),"@L 9999")+TRANSFORM(month(ed("M3B",2,"12",3)),"@L 99")+TRANSFORM(day(ed("M3B",2,"12",3)),"@L 99") rec=rec+replic(" ",26)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trab=_trab+1 _trdec=_trdec+1 _trfic=_trfic+1 *B10 Registo - Trailer do Anexo B Rec="B10" If ed("M3B",1,"3",1)=1 Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999") Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999") Endif If ed("M3B",1,"3",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3B",1,"4",421)+ed("M3B",1,"4",408)+ed("M3B",1,"4",412)+ed("M3B",1,"4",415),15) rec=rec+transval(ed("M3B",2,"8",808)+ed("M3B",2,"8",809)+ed("M3B",2,"8",810)+ed("M3B",2,"8",811)+ed("M3B",2,"8",812)+ed("M3B",2,"8",813)+ed("M3B",2,"8",814)+ed("M3B",2,"8",815)+ed("M3B",2,"8",816)+ed("M3B",2,"8",817)+ed("M3B",2,"8",818)+ed("M3B",2,"8",819),15) rec=rec+transval(ed("M3B",2,"6",601)+ed("M3B",2,"6",602)+ ; ed("M3B",2,"7",701)+ed("M3B",2,"7",702)+ed("M3B",2,"7",703)+ed("M3B",2,"7",704)+ ; ed("M3B",2,"9",901)+ed("M3B",2,"9",902)+ed("M3B",2,"9",903)+ed("M3B",2,"9",904)+ed("M3B",2,"9",905)+ed("M3B",2,"9",906)+ed("M3B",2,"9",907)+ed("M3B",2,"9",908)+ ; ed("M3B",2,"9",910)+ed("M3B",2,"9",911)+ed("M3B",2,"9",912)+ed("M3B",2,"9",913)+ed("M3B",2,"9",914)+ed("M3B",2,"9",915)+ed("M3B",2,"9",916)+ed("M3B",2,"9",917)+ ; ed("M3B",2,"10",1001)+ed("M3B",2,"10",1002),16) rec=rec+transform(_trab, "@l 9999") rec=rec+replic(" ",96)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Endif *--------------------------------------------------------------------- Fim do Anexo B * C01 Registo ----- Header do Anexo C If ED("M3",1,"8",3)!=0 Rec="C01" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif Rec=rec+TRANSFORM(ed("M3C",1,"3",1),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",2),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"2",1),"@L 9999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") If ed("M3C",1,"1",2)=1 rec=rec+"1" rec=rec+"0" Endif If ed("M3C",1,"1",1)=1 rec=rec+"2" rec=rec+"0" Endif IF empty(ed("M3C",1,"3",7)) REC=REC+" " Rec=rec+TRANSFORM(ed("M3C",1,"3",7),"@L 9999") ENDIF IF EMPTY(ed("M3C",1,"3",8)) REC=REC+" " Rec=rec+TRANSFORM(ed("M3C",1,"3",8),"@L 99999") ENDIF IF empty(ed("M3C",1,"3",9)) REC=REC+" " Rec=rec+TRANSFORM(ed("M3C",1,"3",9),"@L 99999") Endif If ed("M3C",1,"3",10)=1 rec=rec+"11" rec=rec+"12" Endif rec=rec+replic(" ",88)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 * C02 Registo ----- Detalhe do Anexo C Rec="C02" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",1,"4",401),13,1) rec=rec+transval(ed("M3C",1,"4",402),12) rec=rec+transval(ed("M3C",1,"4",403),12) rec=rec+transval(ed("M3C",1,"4",404),14,1) rec=rec+transval(ed("M3C",1,"4",405),12) rec=rec+transval(ed("M3C",1,"4",406),12) rec=rec+transval(ed("M3C",1,"4",407),12) rec=rec+transval(ed("M3C",1,"4",408),12) rec=rec+transval(ed("M3C",1,"4",409),12) rec=rec+transval(ed("M3C",1,"4",410),12) rec=rec+transval(ed("M3C",1,"4",411),12) rec=rec+replic(" ",11)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C03 Registo ----- Detalhe do Anexo C Rec="C03" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",1,"4",412),12) rec=rec+transval(ed("M3C",1,"4",413),12) rec=rec+transval(ed("M3C",1,"4",414),12) rec=rec+transval(ed("M3C",1,"4",415),12) rec=rec+transval(ed("M3C",1,"4",440),12) rec=rec+transval(ed("M3C",1,"4",441),12) rec=rec+transval(ed("M3C",1,"4",416),12) rec=rec+transval(ed("M3C",1,"4",417),12) rec=rec+transval(ed("M3C",1,"4",418),12) rec=rec+transval(ed("M3C",1,"4",419),12) rec=rec+transval(ed("M3C",1,"4",420),12) rec=rec+transval(ed("M3C",1,"4",437),12) rec=rec+replic(" ",2)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C04 Registo ----- Detalhe do Anexo C Rec="C04" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",1,"4",438),12) rec=rec+transval(ed("M3C",1,"4",421),12) rec=rec+transval(ed("M3C",1,"4",422),15,1) rec=rec+transval(ed("M3C",1,"4",423),12) rec=rec+transval(ed("M3C",1,"4",424),12) rec=rec+transval(ed("M3C",1,"4",425),12) rec=rec+transval(ed("M3C",1,"4",426),12) rec=rec+transval(ed("M3C",1,"4",427),12) rec=rec+transval(ed("M3C",1,"4",428),12) rec=rec+transval(ed("M3C",1,"4",429),12) rec=rec+transval(ed("M3C",1,"4",430),12) rec=rec+replic(" ",11)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C05 Registo ----- Detalhe do Anexo C Rec="C05" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",1,"4",431),12) rec=rec+transval(ed("M3C",1,"4",432),12) rec=rec+transval(ed("M3C",1,"4",442),12) rec=rec+transval(ed("M3C",1,"4",433),12) rec=rec+transval(ed("M3C",1,"4",434),14) rec=rec+transval(ed("M3C",1,"4",435),14) rec=rec+transval(ed("M3C",1,"4",436),14) rec=rec+transval(ed("M3C",1,"4",443),12) rec=rec+replic(" ",44)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C06 Registo ----- Detalhe do Anexo C Rec="C06" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",1,"5",501),14) rec=rec+transval(ed("M3C",1,"5",502),14) rec=rec+transval(ed("M3C",1,"5",505),14) rec=rec+transval(ed("M3C",1,"5",503),14) rec=rec+transval(ed("M3C",1,"5",504),14) rec=rec+transval(ed("M3C",1,"5",506),14) rec=rec+transval(ed("M3C",2,"6",601),12) rec=rec+transval(ed("M3C",2,"6",602),12) rec=rec+transval(ed("M3C",2,"6",603),12) rec=rec+transval(ed("M3C",2,"6",604),12) rec=rec+transval(ed("M3C",2,"6",605),13) rec=rec+replic(" ",1)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C07 Registo ----- Detalhe do Anexo C Rec="C07" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",2,"6",606),12) rec=rec+transval(ed("M3C",2,"6",607),12) rec=rec+transval(ed("M3C",2,"6",608),12) rec=rec+transval(ed("M3C",2,"6",609),12) rec=rec+transval(ed("M3C",2,"6",610),13) rec=rec+transval(ed("M3C",2,"6",611),12) rec=rec+transval(ed("M3C",2,"6",612),12) rec=rec+transval(ed("M3C",2,"6",613),12) rec=rec+transval(ed("M3C",2,"6",614),12) rec=rec+transval(ed("M3C",2,"6",615),13) rec=rec+transval(ed("M3C",2,"6",616),12) rec=rec+transval(ed("M3C",2,"7",701),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C08 Registo ----- Detalhe do Anexo C Rec="C08" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",2,"8",801),13) rec=rec+transval(ed("M3C",2,"8",802),13) rec=rec+transval(ed("M3C",2,"8",803),13) rec=rec+transval(ed("M3C",2,"8",804),13) rec=rec+transval(ed("M3C",2,"8",829),13) rec=rec+replic(" ",81)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C09 Registo ----- Detalhe do Anexo C * 805 -> 816 for lnind = 805 to 816 if !empty(ed("M3C",2,"8",lnind)) or !empty(ed("M3C",2,"8",lnind+12)) Rec="C09" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Else Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" Else rec=rec+"2" Endif rec=rec+Transform(lnind, "@L 9999") Rec=rec+TRANSFORM(ed("M3C",2,"8",lnind),"@L 999999999") rec=rec+transval(ed("M3C",2,"8",lnind+12),13) rec=rec+replic(" ",120)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 endif endfor * C10 Registo ----- Detalhe do Anexo C Rec="C10" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif Rec=rec+TRANSFORM(ed("M3C",2,"9",901),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",2,"9",902),"@L 9999") Rec=rec+TRANSFORM(ed("M3C",2,"9",903),"@L 9999") Rec=rec+TRANSFORM(ed("M3C",2,"9",904),"@L 9999") Rec=rec+TRANSFORM(ed("M3C",2,"9",905),"@L 9999") Rec=rec+TRANSFORM(ed("M3C",2,"9",906),"@L 9999") Rec=rec+TRANSFORM(ed("M3C",2,"9",907),"@L 9999") rec=rec+transval(ed("M3C",2,"9",908),12) rec=rec+transval(ed("M3C",2,"9",909),12) rec=rec+transval(ed("M3C",2,"9",910),12) rec=rec+transval(ed("M3C",2,"9",911),12) rec=rec+transval(ed("M3C",2,"9",912),12) rec=rec+transval(ed("M3C",2,"9",913),12) rec=rec+transval(ed("M3C",2,"9",914),12) rec=rec+replic(" ",29)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C11 Registo ----- Detalhe do Anexo C Rec="C11" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",2,"9",915),12) rec=rec+transval(ed("M3C",2,"9",916),12) rec=rec+transval(ed("M3C",2,"9",917),12) rec=rec+transval(ed("M3C",2,"9",918),12) rec=rec+transval(ed("M3C",2,"9",919),12) rec=rec+transval(ed("M3C",2,"10",1001),12) rec=rec+transval(ed("M3C",2,"10",1002),12) rec=rec+transval(ed("M3C",2,"10",1003),12) rec=rec+transval(ed("M3C",2,"10",1004),12) rec=rec+transval(ed("M3C",2,"10",1005),12) rec=rec+transval(ed("M3C",2,"10",1006),13) rec=rec+transval(ed("M3C",2,"11",1101),12) rec=rec+replic(" ",1)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C12 Registo ----- Detalhe do Anexo C Rec="C12" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",2,"12",1201),12) rec=rec+transval(ed("M3C",2,"12",1202),12) rec=rec+transval(ed("M3C",2,"12",1203),12) rec=rec+transval(ed("M3C",2,"12",1204),12) rec=rec+transval(ed("M3C",2,"12",1205),12) rec=rec+transval(ed("M3C",2,"12",1206),12) rec=rec+replic(" ",74)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C13 Registo ----- Detalhe do Anexo C Rec="C13" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",2,"13",1301),12) rec=rec+transval(ed("M3C",2,"13",1302),12) rec=rec+transval(ed("M3C",2,"13",1303),12) rec=rec+transval(ed("M3C",2,"13",1304),12) rec=rec+transval(ed("M3C",2,"13",1305),12) rec=rec+transval(ed("M3C",2,"13",1306),12) rec=rec+replic(" ",74)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C14 Registo ----- Detalhe do Anexo C Rec="C14" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",2,"13",1307),12) rec=rec+transval(ed("M3C",2,"13",1308),12) rec=rec+transval(ed("M3C",2,"13",1309),12) rec=rec+transval(ed("M3C",2,"13",1310),12) rec=rec+transval(ed("M3C",2,"13",1311),12) rec=rec+transval(ed("M3C",2,"13",1312),12) If ed("M3C",2,"14",1)=1 rec=rec+"1" If ed("M3C",2,"14",2)=1 rec=rec+"2" else rec=rec+"0" endif Endif Rec=rec+TRANSFORM(ed("M3C",2,"14",1401),"@L 99") If ed("M3C",2,"14",3)=1 rec=rec+"3" If ed("M3C",2,"14",4)=1 rec=rec+"4" else rec=rec+"0" endif Endif rec=rec+transval(ed("M3C",2,"14",1402),12) If ed("M3C",2,"15",1)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+TRANSFORM(year(ed("M3C",2,"15",3)),"@L 9999")+TRANSFORM(month(ed("M3C",2,"15",3)),"@L 99")+TRANSFORM(day(ed("M3C",2,"15",3)),"@L 99") Rec=rec+TRANSFORM(ed("M3C",2,"16",1601),"@L 999999999") rec=rec+replic(" ",40)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 * C15 Registo ----- Trailer do Anexo C Rec="C15" If ed("M3C",1,"3",4)=1 Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999") Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999") Endif If ed("M3C",1,"3",4)=1 rec=rec+"1" rec=rec+"2" Endif rec=rec+transval(ed("M3C",1,"4",404)+ed("M3C",1,"4",422)+ed("M3C",1,"4",434),16,1) rec=rec+transval(ed("M3C",2,"6",605)+ed("M3C",2,"6",610)+ed("M3C",2,"6",615),15) rec=rec+transval(ed("M3C",1,"5",501)+ed("M3C",1,"5",502)+ed("M3C",1,"5",503)+ed("M3C",1,"5",504)+ed("M3C",1,"5",505)+ed("M3C",1,"5",506),15) rec=rec+transval(ed("M3C",2,"9",908)+ed("M3C",2,"9",909)+ed("M3C",2,"9",910)+ed("M3C",2,"9",911)+ed("M3C",2,"9",912)+ed("M3C",2,"9",913),15) rec=rec+transval(ed("M3C",2,"9",914)+ed("M3C",2,"9",915)+ed("M3C",2,"9",916)+ed("M3C",2,"9",917)+ed("M3C",2,"9",918)+ed("M3C",2,"9",919),15) rec=rec+transval(ed("M3C",2,"12",1201)+ed("M3C",2,"12",1202)+ed("M3C",2,"12",1203)+ed("M3C",2,"12",1204)+ed("M3C",2,"12",1205)+ed("M3C",2,"12",1206),15) rec=rec+transval(ed("M3C",2,"13",1301)+ed("M3C",2,"13",1302)+ed("M3C",2,"13",1303)+ed("M3C",2,"13",1304)+ed("M3C",2,"13",1305)+ed("M3C",2,"13",1306); +ed("M3C",2,"13",1307)+ed("M3C",2,"13",1308)+ed("M3C",2,"13",1309)+ed("M3C",2,"13",1310)+ed("M3C",2,"13",1311)+ed("M3C",2,"13",1312),15) rec=rec+transform(_trac, "@l 9999") rec=rec+replic(" ",36)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trac=_trac+1 _trdec=_trdec+1 _trfic=_trfic+1 Endif *--------------------------------------------------------------------- Fim do anexo C *---------------------------------------------------------------------- * 099 Registo Trailer da Declara rec="099" rec=rec+transform(_trdec, "@l 9999") rec=rec+replic(" ",152)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 *----------------------------------------------------------------------- * 999 Registo Trailer da Declara rec="999" rec=rec+transform(_trfic, "@l 9999") rec=rec+replic(" ",152)+chr(13)+chr(10) =FWRITE(FileHandle,rec) *-------------------------------- =fclose(filehandle) =Messagebox("Cria o do Ficheiro efectuada ..",0+64,"") ENDPROC PROCEDURE filecreate1 ***** Crea o ficheiro para modelo 22 lparam _ana, _anb, _anc, _and, _ane _trm22=0 _trana=0 _tranc=0 _trand=0 _trdec=0 _trfic=0 _trane=0 if !file(_m22filename) filehandle=fcreate(_m22filename) filehandle=fopen(_m22filename,2) endif Registo rec="001ASCII17"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",153)+chr(13)+chr(10) =FWRITE(FileHandle,rec) Registo rec="002Mod.22"+_pnipc+alltrim(str(year(_pperi)))+transform(month(_pperi),"@l 99")+transform(day(_pperi),"@l 99")+alltrim(str(year(_ppers)))+transform(month(_ppers),"@l 99")+transform(day(_ppers),"@l 99")+alltrim(str(_pexerc))+"EUR"+replic(" ",130)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 Registo rec="003" rec=rec+left(_pcodrep,4) rec=rec+alltrim(str(_ptipos)) do case case _pregimirc=0 rec=rec+"0000000" case _pregimirc=1 rec=rec+"1000000" case _pregimirc=2 rec=rec+"0300000" case _pregimirc=3 rec=rec+"0040000" case _pregimirc=4 rec=rec+"0005000" case _pregimirc=5 rec=rec+"0000600" case _pregimirc=6 rec=rec+"0000070" case _pregimirc=7 rec=rec+"0000008" endcase rec=rec+transform(_pnipcsd, "@l 999999999") IF _ptaxaopc=1 rec=rec+"1" ELSE rec=rec+"0" ENDIF IF _PSITUA=1 REC=REC+"1" REC=REC+"0" ENDIF rec=rec+alltrim(str(_ptipodec)) rec=rec+transform(year(_pdatasubst),"@l 9999")+transform(month(_pdatasubst),"@l 99")+transform(day(_pdatasubst),"@l 99") *rec=rec+alltrim(str(_presdec)) rec=rec+stuff("00000",_pdescesp,1,alltrim(str(_pdescesp)))+iif(_pdecini=0,"0","7") rec=rec+transform(year(_pdataces),"@l 9999")+transform(month(_pdataces),"@l 99")+transform(day(_pdataces),"@l 99") rec=rec+transform(year(_pdatatrans),"@l 9999")+transform(month(_pdatatrans),"@l 99")+transform(day(_pdatatrans),"@l 99") rec=rec+alltrim(str(_panexoa)) rec=rec+alltrim(str(iif(_panexob=0,0,2))) rec=rec+alltrim(str(iif(_panexoc=0,0,3))) rec=rec+alltrim(str(iif(_panexod=0,0,4))) rec=rec+_pniflegal rec=rec+_pniftoc rec=rec+ALLTRIM(STR(_ppme)) rec=rec+ALLTRIM(STR(_ptransf)) rec=rec+alltrim(str(iif(_panexoe=0,0,5))) rec=rec+replic(" ",89)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="004" *!* rec=rec+transval(ed("M22",1,"7",201),13,1) *!* rec=rec+transval(ed("M22",1,"7",202),12) *!* rec=rec+transval(ed("M22",1,"7",203),12) *!* rec=rec+transval(ed("M22",1,"7",204),15,1) *!* rec=rec+transval(ed("M22",1,"7",205),12) *!* rec=rec+transval(ed("M22",1,"7",206),12) *!* rec=rec+transval(ed("M22",1,"7",207),12) *!* rec=rec+transval(ed("M22",1,"7",208),12) *!* rec=rec+transval(ed("M22",1,"7",209),12) *!* rec=rec+transval(ed("M22",1,"7",210),12) *!* rec=rec+transval(ed("M22",1,"7",211),12) *!* rec=rec+transval(ed("M22",1,"7",212),12) *!* rec=rec+replic(" ",21)+chr(13)+chr(10) rec=rec+transval(0,13,1) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,15,1) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+replic(" ",20)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="005" *!* rec=rec+transval(ed("M22",1,"7",213),12) *!* rec=rec+transval(ed("M22",1,"7",214),12) *!* rec=rec+transval(ed("M22",1,"7",215),12) *!* rec=rec+transval(ed("M22",1,"7",216),12) *!* rec=rec+transval(ed("M22",1,"7",217),12) *!* rec=rec+transval(ed("M22",1,"7",218),12) *!* rec=rec+transval(ed("M22",1,"7",220),12) *!* rec=rec+transval(ed("M22",1,"7",222),12) *!* rec=rec+transval(ed("M22",1,"7",223),12) *!* rec=rec+transval(ed("M22",1,"7",224),12) *!* rec=rec+transval(ed("M22",1,"7",251),12) *!* rec=rec+transval(ed("M22",1,"7",252),12) *!* rec=rec+transval(ed("M22",1,"7",253),12) *!* rec=rec+transval(ed("M22",1,"7",254),12) *!* rec=rec+replic(" ",1)+chr(13)+chr(10) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="006" *!* rec=rec+transval(ed("M22",1,"7",255),12) *!* rec=rec+transval(ed("M22",1,"7",256),12) *!* rec=rec+transval(ed("M22",1,"7",257),12) *!* rec=rec+transval(ed("M22",1,"7",258),12) *!* rec=rec+transval(ed("M22",1,"7",259),12) *!* rec=rec+transval(ed("M22",1,"7",270),12) *!* rec=rec+transval(ed("M22",1,"7",271),12) *!* rec=rec+transval(ed("M22",1,"7",225),12) *!* rec=rec+transval(ed("M22",1,"7",226),15,1) *!* rec=rec+transval(ed("M22",1,"7",227),12) *!* rec=rec+transval(ed("M22",1,"7",228),12) *!* rec=rec+transval(ed("M22",1,"7",229),12) *!* rec=rec+transval(ed("M22",1,"7",230),12) *!* rec=rec+replic(" ",10)+chr(13)+chr(10) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,15,1) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="007" *!* rec=rec+transval(ed("M22",1,"7",231),12) *!* rec=rec+transval(ed("M22",1,"7",232),12) *!* rec=rec+transval(ed("M22",1,"7",233),12) *!* rec=rec+transval(ed("M22",1,"7",234),12) *!* rec=rec+transval(ed("M22",1,"7",235),12) *!* rec=rec+transval(ed("M22",1,"7",236),12) *!* rec=rec+transval(ed("M22",1,"7",272),12) *!* rec=rec+transval(ed("M22",1,"7",273),12) *!* rec=rec+transval(ed("M22",1,"7",237),12) *!* rec=rec+transval(ed("M22",1,"7",277),12) *!* rec=rec+transval(ed("M22",1,"7",238),14) *!* rec=rec+transval(ed("M22",1,"7",239),14) *!* IF !EMPTY(ed("M22",1,"7",240)) *!* rec=rec+transval(ed("M22",1,"7",240),14) *!* ELSE *!* rec=rec+replic(" ",14) *!* ENDIF *!* rec=rec+replic(" ",7)+chr(13)+chr(10) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,14) rec=rec+transval(0,14) rec=rec+replic(" ",14) rec=rec+replic(" ",6)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="008" rec=rec+transf(ed("M22",1,"8",242), "@L 9") *!* rec=rec+transf(ed("M22",1,"8",243), "@L 9") rec=rec+transf(ed("M22",1,"8",245), "@L 9") rec=rec+transf(ed("M22",1,"8",248), "@L 9") rec=rec+transf(ed("M22",1,"8",260), "@L 9") *!* rec=rec+transf(ed("M22",1,"8",261), "@L 9") rec=rec+transf(ed("M22",1,"8",247), "@L 9") rec=rec+transf(ed("M22",1,"8",246), "@L 9") rec=rec+transf(ed("M22",1,"8",249), "@L 9") rec=rec+transf(ed("M22",1,"8",262), "@L 9") rec=rec+transf(ed("M22",1,"8",263), "@L 9") rec=rec+transf(ed("M22",1,"8",264), "@L 9") rec=rec+transf(ed("M22",1,"8",265), "@L 9") rec=rec+transval(ed("M22",1,"9",301),12) IF !EMPTY(ed("M22",1,"9",302)) rec=rec+transval(ed("M22",1,"9",302),12) REC=REC+replic(" ",12) ENDIF IF EMPTY(ed("M22",1,"9",303)) rec=rec+REPLICATE(" ",12) else rec=rec+transval(ed("M22",1,"9",303),12) endif *!* rec=rec+transval(ed("M22",1,"9",304),12) *!* rec=rec+transval(ed("M22",1,"9",305),12) *!* rec=rec+transval(ed("M22",1,"9",306),12) *!* rec=rec+transval(ed("M22",1,"9",307),12) *!* rec=rec+transval(ed("M22",1,"9",308),12) rec=rec+transval(ed("M22",1,"9",309),12) rec=rec+transval(ed("M22",1,"9",310),12) IF !EMPTY(ed("M22",1,"9",311)) rec=rec+transval(ed("M22",1,"9",311),12) REC=REC+replic(" ",12) ENDIF rec=rec+transval(ed("M22",1,"9",312),12) IF !EMPTY(ed("M22",1,"9",313)) rec=rec+transval(ed("M22",1,"9",313),12) REC=REC+replic(" ",12) ENDIF rec=rec+transf(ed("M22",1,"8",266), "@L 9") rec=rec+replic(" ",60)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="009" rec=rec+transval(ed("M22",1,"9",314),12) *!* rec=rec+transval(ed("M22",1,"9",315),12) *!* rec=rec+transval(ed("M22",1,"9",316),12) *!* rec=rec+transval(ed("M22",1,"9",317),12) *!* rec=rec+transval(ed("M22",1,"9",318),12) *!* rec=rec+transval(ed("M22",1,"9",319),12) rec=rec+transval(ed("M22",1,"9",320),12) rec=rec+transval(ed("M22",1,"9",321),12) IF !EMPTY(ed("M22",1,"9",322)) rec=rec+transval(ed("M22",1,"9",322),12) REC=REC+replic(" ",12) ENDIF rec=rec+transval(ed("M22",1,"9",323),12) IF !EMPTY(ed("M22",1,"9",324)) rec=rec+transval(ed("M22",1,"9",324),12) REC=REC+replic(" ",12) ENDIF rec=rec+transval(ed("M22",1,"9",325),12) *!* rec=rec+transval(ed("M22",1,"9",326),12) *!* rec=rec+transval(ed("M22",1,"9",327),12) rec=rec+replic(" ",84)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="010" *!* rec=rec+transval(ed("M22",1,"9",328),12) *!* rec=rec+transval(ed("M22",1,"9",329),12) *!* rec=rec+transval(ed("M22",1,"9",330),12) rec=rec+transval(ed("M22",1,"9",331),12) rec=rec+transval(ed("M22",1,"9",332),12) IF !EMPTY(ed("M22",1,"9",333)) rec=rec+transval(ed("M22",1,"9",333),12) REC=REC+replic(" ",12) ENDIF rec=rec+transval(ed("M22",1,"9",346),14) rec=rec+transval(ed("M22",1,"9",380),13,1) rec=rec+transval(ed("M22",1,"9",381),12) rec=rec+transval(ed("M22",1,"9",382),13,1) IF !EMPTY(ed("M22",1,"11",410)) rec=rec+transval(ed("M22",1,"11",410),14) REC=REC+replic(" ",14) ENDIF rec=rec+transval(ed("M22",1,"11",411),14) rec=rec+transval(ed("M22",1,"11",422),12) rec=rec+transval(ed("M22",1,"11",424),12) rec=rec+replic(" ",28)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="011" *!* rec=rec+transval(ed("M22",1,"11",413),12) rec=rec+transval(ed("M22",1,"11",414),12) rec=rec+transval(ed("M22",1,"11",415),12) rec=rec+transval(ed("M22",1,"11",416),12) rec=rec+transval(ed("M22",1,"10",347),12) _t=transf(Ed("M22",1,"10",348),"@l 99.9") _t=stuff(_t,3,1,"") rec=rec+_t rec=rec+transval(ed("M22",1,"10",349),12) rec=rec+transval(ed("M22",1,"10",350),12) rec=rec+transval(ed("M22",1,"10",370),12) rec=rec+transval(ed("M22",1,"10",351),14) rec=rec+transval(ed("M22",1,"10",353),12) rec=rec+transval(ed("M22",1,"10",355),12) rec=rec+transval(ed("M22",1,"10",3661),12) rec=rec+transval(ed("M22",1,"10",3662),12) rec=rec+replic(" ",19)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="012" rec=rec+transval(ed("M22",1,"10",356),12) rec=rec+transval(ed("M22",1,"10",357),14) rec=rec+transval(ed("M22",1,"10",358),14) rec=rec+transval(ed("M22",1,"10",371),14) rec=rec+transval(ed("M22",1,"10",359),12) rec=rec+transval(ed("M22",1,"10",360),12) rec=rec+transval(ed("M22",1,"10",361),14) rec=rec+transval(ed("M22",1,"10",362),14) rec=rec+transval(ed("M22",1,"10",363),12) rec=rec+transval(ed("M22",1,"10",364),12) rec=rec+transval(ed("M22",1,"10",365),12) rec=rec+transval(ed("M22",1,"10",366),12) rec=rec+transval(ed("M22",1,"10",369),12) rec=rec+replic(" ",2)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo *if _panexob=1 rec="013" rec=rec+transval(ed("M22",1,"10",367),14) rec=rec+transval(ed("M22",1,"10",368),14) IF EMPTY(ed("M22",1,"9",400)) rec=rec+REPLICATE(" ",12) else rec=rec+transval(ed("M22",1,"9",400),12) endif * rec=rec+iif(empty(ed("M22",1,"9",400)), " ", padl(ed("M22",1,"9",400)*100, 12, " ")) rec=rec+transval(ed("M22",1,"9",401),12) *!* rec=rec+transval(ed("M22",1,"9",402),12) *!* rec=rec+transval(ed("M22",1,"9",403),12) *!* rec=rec+transval(ed("M22",1,"9",404),12) *!* rec=rec+transval(ed("M22",1,"9",405),12) *!* rec=rec+transval(ed("M22",1,"9",406),12) rec=rec+transval(ed("M22",1,"9",407),12) rec=rec+transval(ed("M22",1,"9",408),12) rec=rec+transval(ed("M22",1,"9",409),12) *!* rec=rec+transval(ed("M22",1,"9",395),12) rec=rec+transval(ed("M22",1,"9",3971)+ed("M22",1,"9",3972),15) rec=rec+replic(" ",65)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 *endif Registo rec="014" *!* rec=rec+transval(ed("M22",1,"7",274),12) *!* rec=rec+transval(ed("M22",1,"7",275),12) *!* rec=rec+transval(ed("M22",1,"7",276),12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(ed("M22",1,"10",372),12) rec=rec+transval(ed("M22",1,"11",420),12) rec=rec+transval(ed("M22",1,"11",421),12) *rec=rec+transval(ed("M22",1,"11",419),12) rec=rec+transval(ed("M22",1,"10",3470),12) rec=rec+replic(" ",84)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="015" rec=rec+transval(ed("M22",1,"9",383),12) rec=rec+transval(ed("M22",1,"9",384),12) rec=rec+transval(ed("M22",1,"9",385),12) rec=rec+transval(ed("M22",1,"9",386),12) rec=rec+transval(ed("M22",1,"9",387),12) rec=rec+transval(ed("M22",1,"9",388),12) rec=rec+transval(ed("M22",1,"9",389),12) rec=rec+transval(ed("M22",1,"9",390),12) rec=rec+transval(ed("M22",1,"9",391),12) rec=rec+transval(ed("M22",1,"9",392),12) rec=rec+transval(ed("M22",1,"9",393),12) rec=rec+transval(ed("M22",1,"9",394),12) rec=rec+transval(ed("M22",1,"11",417),12) rec=rec+transform(year(ed("M22",1,"11",418)),"@l 9999")+transform(month(ed("M22",1,"11",418)),"@l 99")+transform(day(ed("M22",1,"11",418)),"@l 99") rec=rec+replic(" ",4)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 *--------Novos registos do quadro 7 a partir de 2011 Registo rec="016" rec=rec+transval(ed("M22",1,"7",701),13,1) rec=rec+transval(ed("M22",1,"7",702),12) rec=rec+transval(ed("M22",1,"7",703),12) rec=rec+transval(ed("M22",1,"7",704),12) rec=rec+transval(ed("M22",1,"7",705),12) rec=rec+transval(ed("M22",1,"7",706),12) rec=rec+transval(ed("M22",1,"7",707),12) rec=rec+transval(ed("M22",1,"7",708),15,1) rec=rec+transval(ed("M22",1,"7",709),12) rec=rec+transval(ed("M22",1,"7",710),12) rec=rec+transval(ed("M22",1,"7",711),12) rec=rec+transval(ed("M22",1,"7",712),12) rec=rec+transval(ed("M22",1,"7",713),12) rec=rec+replic(" ",8)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="017" rec=rec+transval(ed("M22",1,"7",714),12) rec=rec+transval(ed("M22",1,"7",715),12) rec=rec+transval(ed("M22",1,"7",716),12) rec=rec+transval(ed("M22",1,"7",717),12) rec=rec+transval(ed("M22",1,"7",718),12) rec=rec+transval(ed("M22",1,"7",719),12) rec=rec+transval(ed("M22",1,"7",720),12) rec=rec+transval(ed("M22",1,"7",721),12) rec=rec+transval(ed("M22",1,"7",722),12) rec=rec+transval(ed("M22",1,"7",723),12) rec=rec+transval(ed("M22",1,"7",724),12) rec=rec+transval(ed("M22",1,"7",725),12) rec=rec+transval(ed("M22",1,"7",726),12) rec=rec+transval(ed("M22",1,"7",727),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="018" rec=rec+transval(ed("M22",1,"7",728),12) rec=rec+transval(ed("M22",1,"7",729),12) rec=rec+transval(ed("M22",1,"7",730),12) rec=rec+transval(ed("M22",1,"7",731),12) rec=rec+transval(ed("M22",1,"7",732),12) rec=rec+transval(ed("M22",1,"7",733),12) rec=rec+transval(ed("M22",1,"7",734),12) rec=rec+transval(ed("M22",1,"7",735),12) rec=rec+transval(ed("M22",1,"7",736),12) rec=rec+transval(ed("M22",1,"7",737),12) rec=rec+transval(ed("M22",1,"7",738),12) rec=rec+transval(ed("M22",1,"7",739),12) rec=rec+transval(ed("M22",1,"7",740),12) rec=rec+transval(ed("M22",1,"7",741),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="019" rec=rec+transval(ed("M22",1,"7",742),12) rec=rec+transval(ed("M22",1,"7",743),12) rec=rec+transval(ed("M22",1,"7",744),12) rec=rec+transval(ed("M22",1,"7",745),12) rec=rec+transval(ed("M22",1,"7",746),12) rec=rec+transval(ed("M22",1,"7",747),12) rec=rec+transval(ed("M22",1,"7",748),12) rec=rec+transval(ed("M22",1,"7",749),12) rec=rec+transval(ed("M22",1,"7",750),12) rec=rec+transval(ed("M22",1,"7",751),12) rec=rec+transval(ed("M22",1,"7",752),12) rec=rec+transval(ed("M22",1,"7",753),15,1) rec=rec+transval(ed("M22",1,"7",779),12) rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="020" rec=rec+transval(ed("M22",1,"7",754),12) rec=rec+transval(ed("M22",1,"7",755),12) rec=rec+transval(ed("M22",1,"7",756),12) rec=rec+transval(ed("M22",1,"7",757),12) rec=rec+transval(ed("M22",1,"7",758),12) rec=rec+transval(ed("M22",1,"7",759),12) rec=rec+transval(ed("M22",1,"7",760),12) rec=rec+transval(ed("M22",1,"7",761),12) rec=rec+transval(ed("M22",1,"7",762),12) rec=rec+transval(ed("M22",1,"7",763),12) rec=rec+transval(ed("M22",1,"7",764),12) rec=rec+transval(ed("M22",1,"7",765),12) rec=rec+transval(ed("M22",1,"7",766),12) rec=rec+transval(ed("M22",1,"7",767),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="021" rec=rec+transval(ed("M22",1,"7",768),12) rec=rec+transval(ed("M22",1,"7",769),12) rec=rec+transval(ed("M22",1,"7",770),12) rec=rec+transval(ed("M22",1,"7",771),12) rec=rec+transval(ed("M22",1,"7",772),12) rec=rec+transval(ed("M22",1,"7",773),12) rec=rec+transval(ed("M22",1,"7",774),12) rec=rec+transval(ed("M22",1,"7",775),12) rec=rec+transval(ed("M22",1,"7",776),14) rec=rec+transval(ed("M22",1,"7",777),14) rec=rec+transval(ed("M22",1,"7",778),14) *!* rec=rec+transform(year(ed("M22",1,"8",266)),"@l 9999")+transform(month(ed("M22",1,"8",266)),"@l 99")+transform(day(ed("M22",1,"8",266)),"@l 99") *!* IF EMPTY(ed("M22",1,"8",267)) *!* rec=rec+" " *!* ELSE *!* rec=rec+transf(ed("M22",1,"8",267), "@l 99999") *!* ENDIF *!* IF EMPTY(ed("M22",1,"8",268)) *!* REC=REC+REPLICATE(" ",14) *!* ELSE *!* rec=rec+transval(ed("M22",1,"8",268),14) *!* ENDIF rec=rec+transval(ed("M22",1,"7",780),12) rec=rec+transval(ed("M22",1,"7",781),12) rec=rec+replic(" ",6)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="022" rec=rec+transval(ed("M22",1,"10",373),12) rec=rec+transval(ed("M22",1,"10",374),12) IF ED("M22",1,"11",423)=1 REC=rec+"1" REC=REC+"0" ENDIF rec=rec+replic(" ",143)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 *----------------------------------------------------- Registo t_q12=0 IF !EMPTY(ed("M22",1,"12",1)) t_q12=1 rec="023" rec=rec+transform(1, "@l 99999") rec=rec+transform(ed("M22",1,"12",1), "@l 999999999") rec=rec+transval(ed("M22",1,"12",2),12) rec=rec+replic(" ",142)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Endif *!* IF !EMPTY(ed("M22",1,"12",3)) *!* *!* t_q12=2 *!* rec="16" *!* rec=rec+transform(1, "@l 99999") *!* rec=rec+transform(ed("M22",1,"12",3), "@l 999999999") *!* rec=rec+transval(ed("M22",1,"12",4),12) *!* *!* rec=rec+replic(" ",143)+chr(13)+chr(10) *!* =FWRITE(FileHandle,rec) *!* _trm22=_trm22+1 *!* _trdec=_trdec+1 *!* _trfic=_trfic+1 *!* Endif *!* =FWRITE(FileHandle,rec) *!* _trm22=_trm22+1 *!* _trdec=_trdec+1 *!* _trfic=_trfic+1 Registo t_reg17=0 IF !EMPTY(ed("M22",1,"9",396)) t_reg17=1 rec="024" rec=rec+transform(1, "@l 99999") rec=rec+transval(ed("M22",1,"9",396),12) rec=rec+transform(ed("M22",1,"9",8), "@l 999999999") rec=rec+replic(" ",142)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Endif Registo t_reg18=0 IF !EMPTY(ed("M22",1,"9",3971)) t_reg18=1 rec="025" rec=rec+transform(1, "@l 99999") rec=rec+transval(ed("M22",1,"9",3971),12) rec=rec+transform(ed("M22",1,"9",9), "@l 999999999") rec=rec+replic(" ",142)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Endif Registo t_reg19=0 IF !EMPTY(ed("M22",1,"9",3972)) t_reg19=1 rec="026" rec=rec+transform(1, "@l 99999") rec=rec+transval(ed("M22",1,"9",3972),12) rec=rec+transform(ed("M22",1,"9",10), "@l 999999999") rec=rec+replic(" ",142)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Endif Registo rec="027" rec=rec+transval(ed("M22",1,"7",782),12) rec=rec+transval(ed("M22",1,"7",783),12) rec=rec+transval(ed("M22",1,"7",784),12) rec=rec+transval(ed("M22",1,"7",785),12) rec=rec+transval(ed("M22",1,"7",786),12) rec=rec+transval(ed("M22",1,"7",787),12) rec=rec+transval(ed("M22",1,"7",788),12) rec=rec+transval(ed("M22",1,"7",789),12) rec=rec+transval(ed("M22",1,"7",790),12) rec=rec+transval(ed("M22",1,"7",791),12) rec=rec+transval(ed("M22",1,"7",792),12) rec=rec+transval(ed("M22",1,"7",793),12) rec=rec+transval(ed("M22",1,"7",794),12) rec=rec+transval(ed("M22",1,"7",795),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="028" rec=rec+transval(ed("M22",1,"7",796),12) rec=rec+transval(ed("M22",1,"9",395),12) rec=rec+transval(ed("M22",1,"9",399),12) rec=rec+transval(ed("M22",1,"10",378),14) rec=rec+transval(ed("M22",1,"10",375),12) rec=rec+transval(ed("M22",1,"10",379),12) rec=rec+ALLTRIM(STR(ed("M22",1,"10",1))) rec=rec+transval(ed("M22",1,"10",3771),12) rec=rec+transval(ed("M22",1,"10",3772),12) rec=rec+transval(ed("M22",1,"10",377),12) rec=rec+transval(ed("M22",1,"10",430),12) rec=rec+transval(ed("M22",1,"10",431),12) rec=rec+transval(ed("M22",1,"13",425),12) rec=rec+transval(ed("M22",1,"13",426),12) rec=rec+REPLICATE(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo t_reg19=0 IF !EMPTY(ed("M22",1,"9",398)) t_reg19=1 rec="029" rec=rec+transform(1, "@l 99999") rec=rec+transval(ed("M22",1,"9",398),12) rec=rec+transform(ed("M22",1,"9",11), "@l 999999999") rec=rec+replic(" ",142)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 ENDIF Registo rec="030" rec=rec+transval(ed("M22",1,"13",427),12) rec=rec+transval(ed("M22",1,"13",428),12) rec=rec+transval(ed("M22",1,"14",32),12) rec=rec+transval(ed("M22",1,"14",62),14) rec=rec+transval(ed("M22",1,"14",72),12) rec=rec+transval(ed("M22",1,"14",82),12) rec=rec+transval(ed("M22",1,"14",33),10) rec=rec+transval(ed("M22",1,"14",63),12) rec=rec+transval(ed("M22",1,"14",73),12) rec=rec+transval(ed("M22",1,"14",83),12) rec=rec+transval(ed("M22",1,"14",34),12) rec=rec+transval(ed("M22",1,"14",64),12) rec=rec+transval(ed("M22",1,"14",74),12) rec=rec+transval(ed("M22",1,"14",84),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="031" t_reg20=0 IF !EMPTY(ed("M22",1,"14",1)) t_reg20=1 rec="031" rec=rec+transform(1, "@l 99999") rec=rec+transform(ed("M22",1,"14",1), "@l 999") rec=rec+ALLTRIM(ed("M22",1,"14",2))+REPLICATE(" ",30-LEN(ALLTRIM(ed("M22",1,"14",2)))) rec=rec+transval(ed("M22",1,"14",31),12) rec=rec+transval(ed("M22",1,"14",41),12) rec=rec+transval(ed("M22",1,"14",51),12) rec=rec+transval(ed("M22",1,"14",61),12) rec=rec+transval(ed("M22",1,"14",71),12) rec=rec+transval(ed("M22",1,"14",81),12) rec=rec+replic(" ",58)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trm22=_trm22+1 _trdec=_trdec+1 _trfic=_trfic+1 ENDIF Registo rec="099" rec=rec+transf(_trm22, "@l 999999") rec=rec+transf(t_q12, "@l 99999") rec=rec+transf(t_reg17, "@l 99999") rec=rec+transf(t_reg18, "@l 99999") rec=rec+transf(t_reg19, "@l 99999") rec=rec+transval(ed("M22",1,"9",346)+ed("M22",1,"10",367)+ed("M22",1,"10",368),15,1) rec=rec+replic(" ",127)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 *--------- Existindo apresenta o do anexo a If _panexoa=1 * 101 Registo rec="101" rec=rec+_pnipc rec=rec+alltrim(str(_pexerc)) rec=rec+replic(" ",155)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 * 102 Registo ( Repete tantas vezes linhas do quadro 4 preenchidas ) rec="102" For Ctlinha=1 to 19 if !empty(ed("M22A",1,"4",ctlinha)) rec="102" rec=rec+transf(ctlinha, "@l 999") rec=rec+transf(ED("M22A",1,"41",ctlinha), "@l 9999") IF !EMPTY(ed("M22A",1,"42",ctlinha)) rec=rec+transval(ed("M22A",1,"42",ctlinha),12) ELSE rec=rec+REPLICATE(" ", 12) ENDIF IF !EMPTY(ed("M22A",1,"43",ctlinha)) rec=rec+transval(ed("M22A",1,"43",ctlinha),4) ELSE rec=rec+REPLICATE(" ", 4) Endif IF !EMPTY(ed("M22A",1,"44",ctlinha)) rec=rec+transval(ed("M22A",1,"44",ctlinha),12) ELSE rec=rec+REPLICATE(" ", 12) ENDIF rec=rec+replic(" ",133)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trana=_trana+1 endif next ctlinha * 199 Registo Rec="199" rec=rec+transf(_trana, "@l 999") rec=rec+transval(ed("M22A",1,"5",1),12) rec=rec+transval(ed("M22A",1,"5",2),12) rec=rec+transval(ed("M22A",1,"5",3),4) rec=rec+transval(ed("M22A",1,"6",1),12) IF EMPTY(ed("M22A",1,"6",2)) rec=rec+transval(ed("M22A",1,"6",2),4) rec=rec+REPLICATE(" ", 4) ENDIF rec=rec+transval(ed("M22A",1,"6",3),12) rec=rec+replic(" ",109)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Endif *---------------------------------------------------------- * No caso em que utilizado o anexo B *---------------------------------------------------------- If _panexob=1 * 201 Registo rec="201" rec=rec+_pnipc rec=rec+alltrim(str(_pexerc)) rec=rec+replic(" ",155)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="202" rec=rec+transval(ed("M22B",1,"3",1),12) rec=rec+transval(ed("M22B",1,"3",2),12) rec=rec+transval(ed("M22B",1,"3",3),12) rec=rec+transval(ed("M22B",1,"3",4),12) rec=rec+transval(ed("M22B",1,"3",5),12) rec=rec+transval(ed("M22B",1,"3",6),12) rec=rec+transval(ed("M22B",1,"3",7),12) rec=rec+transval(ed("M22B",1,"3",8),12) rec=rec+transval(ed("M22B",1,"3",9),12) rec=rec+transval(ed("M22B",1,"3",10),12) rec=rec+transval(ed("M22B",1,"3",11),14) rec=rec+transval(ed("M22B",1,"3",12),14) rec=rec+replic(" ",20)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 * 203 Registo rec="203" rec=rec+transval(ed("M22B",1,"3",13),12) rec=rec+transval(ed("M22B",1,"3",14),12) rec=rec+transval(ed("M22B",1,"3",15),12) rec=rec+transval(ed("M22B",1,"3",16),12) rec=rec+transval(ed("M22B",1,"3",17),12) rec=rec+transval(ed("M22B",1,"3",18),12) rec=rec+replic(" ",96)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 * 299 Registo rec="299" rec=rec+transval(ed("M22B",1,"3",11)+ed("M22B",1,"3",12),14) rec=rec+replic(" ",154)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Endif *-------------------------------------------------------------- * Existindo anexo C *-------------------------------------------------------------- If _panexoc=1 * 301 Registo rec="301" rec=rec+_pnipc rec=rec+alltrim(str(_pexerc)) rec=rec+replic(" ",155)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 * 302 Registo rec="302" rec=rec+transval(ed("M22C",1,"3",1),14) rec=rec+transval(ed("M22C",1,"3",2),12) rec=rec+transval(ed("M22C",1,"3",3),12) rec=rec+transval(ed("M22C",1,"3",4),3) rec=rec+transval(ed("M22C",1,"3",5),3) rec=rec+transval(ed("M22C",1,"4",6),12) rec=rec+transval(ed("M22C",1,"5",11),12) rec=rec+transval(ed("M22C",1,"4",7),12) rec=rec+transval(ed("M22C",1,"5",21),3) && att rec=rec+transval(ed("M22C",1,"5",12),12) rec=rec+transval(ed("M22C",1,"4",9),12) rec=rec+transval(ed("M22C",1,"4",8),12) rec=rec+transval(ed("M22C",1,"4",10),12) rec=rec+transval(ed("M22C",1,"5",13),12) rec=rec+transval(ed("M22C",1,"5",14),12) rec=rec+transval(ed("M22C",1,"5",15),12) rec=rec+replic(" ",1)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranc=_tranc+1 * 303 Registo rec="303" rec=rec+transval(ed("M22C",1,"6",16),12) rec=rec+transval(ed("M22C",1,"6",17),12) rec=rec+transval(ed("M22C",1,"6",18),12) rec=rec+transval(ed("M22C",1,"6",19),12) rec=rec+transval(ed("M22C",1,"6",20),12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,12) rec=rec+transval(0,3) rec=rec+replic(" ",9)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranc=_tranc+1 *------------------------------------------------------------------------------ * 399 Registo rec="399" rec=rec+transval(ed("M22C",1,"3",1)+ed("M22C",1,"3",2)+ed("M22C",1,"3",3),15) rec=rec+replic(" ",153)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 endif *-------------------------------------------------------------- * Existindo anexo D *-------------------------------------------------------------- If _panexod=1 Registo rec="50" rec=rec+_pnipc rec=rec+alltrim(str(_pexerc)) rec=rec+replic(" ",156)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="51" rec=rec+transval(ed("M22D",1,"3",301),12) rec=rec+transval(ed("M22D",1,"3",302),12) rec=rec+transval(ed("M22D",1,"3",303),12) rec=rec+transval(ed("M22D",1,"3",304),12) rec=rec+transval(ed("M22D",1,"3",305),12) rec=rec+transval(ed("M22D",1,"3",306),12) rec=rec+transval(ed("M22D",1,"3",307),12) rec=rec+transval(ed("M22D",1,"3",308),12) rec=rec+transval(ed("M22D",1,"3",309),12) rec=rec+transval(ed("M22D",1,"3",310),12) rec=rec+transval(ed("M22D",1,"3",311),12) rec=rec+transval(ed("M22D",1,"3",312),12) rec=rec+IIF(ed("M22D",1,"3",3040)=0," ",transform(ed("M22D",1,"3",3040), "@l 999")) rec=rec+IIF(ed("M22D",1,"3",3120)=0," ",transform(ed("M22D",1,"3",3120), "@l 999")) rec=rec+transval(ed("M22D",1,"3",313),12) rec=rec+replic(" ",7)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="52" rec=rec+transval(ed("M22D",1,"4",401),12) rec=rec+transval(ed("M22D",1,"4",402),12) rec=rec+transval(ed("M22D",1,"4",403),12) rec=rec+transval(ed("M22D",1,"4",404),12) rec=rec+transval(ed("M22D",1,"4",405),12) rec=rec+transval(ed("M22D",1,"4",406),12) rec=rec+transval(ed("M22D",1,"4",407),12) rec=rec+transval(ed("M22D",1,"4",408),12) rec=rec+transval(ed("M22D",1,"4",409),12) rec=rec+transval(ed("M22D",1,"4",410),12) rec=rec+transval(ed("M22D",1,"4",412),12) rec=rec+transval(ed("M22D",1,"4",413),12) rec=rec+transval(ed("M22D",1,"4",411),13) rec=rec+replic(" ",12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="53" rec=rec+transval(ed("M22D",1,"5",501),12) rec=rec+transval(ed("M22D",1,"5",502),12) rec=rec+transform(year(ed("M22D",1,"6",601)),"@l 9999")+transform(month(ed("M22D",1,"6",601)),"@l 99")+transform(day(ed("M22D",1,"6",601)),"@l 99") rec=rec+transform(ed("M22D",1,"6",602), "@l 99999") rec=rec+transval(ed("M22D",1,"6",603),14) *---- MUDA PAGINA rec=rec+transval(ed("M22D",2,"7",701),12) rec=rec+transval(ed("M22D",2,"7",702),12) rec=rec+transval(ed("M22D",2,"7",703),12) rec=rec+transval(ed("M22D",2,"7",704),12) rec=rec+transval(ed("M22D",2,"7",705),12) rec=rec+transval(ed("M22D",2,"7",706),12) rec=rec+transval(ed("M22D",2,"7",707),12) rec=rec+transval(ed("M22D",2,"7",708),12) rec=rec+transval(ed("M22D",1,"3",314),12) rec=rec+IIF(ed("M22D",1,"3",3140)=0," ",transform(ed("M22D",1,"3",3140), "@l 999")) rec=rec+replic(" ",7)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="54" rec=rec+transval(ed("M22D",2,"7",709),12) rec=rec+transval(ed("M22D",2,"7",710),12) rec=rec+transval(ed("M22D",2,"7",711),12) rec=rec+transval(ed("M22D",2,"7",712),12) rec=rec+transval(ed("M22D",2,"7",713),12) rec=rec+transval(ed("M22D",2,"7",714),12) rec=rec+transval(ed("M22D",2,"7",715),12) rec=rec+transval(ed("M22D",2,"7",716),12) rec=rec+transval(ed("M22D",2,"7",717),12) rec=rec+transval(ed("M22D",2,"7",718),12) rec=rec+transval(ed("M22D",2,"7",719),12) rec=rec+transval(ed("M22D",2,"7",720),12) rec=rec+transval(ed("M22D",2,"7",721),14) rec=rec+replic(" ",11)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="55" if !EMPTY(ed("M22D",2,"8",801)) rec=rec+"01" rec=rec+transform(1, "@l 99999") rec=rec+transform(ed("M22D",2,"8",801), "@l 99") rec=rec+transform(ed("M22D",2,"8",802), "@l 999999999") rec=rec+transval(ed("M22D",2,"8",803),12) rec=rec+"000000000000000000000000000000" ENDIF rec=rec+replic(" ",141)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="56" rec=rec+transform(ed("M22D",2,"9",907), "@l 9999") rec=rec+transval(ed("M22D",2,"9",901),12) rec=rec+transform(ed("M22D",2,"9",908), "@l 9999") rec=rec+transval(ed("M22D",2,"9",902),12) rec=rec+transval(ed("M22D",2,"9",903),12) rec=rec+transval(ed("M22D",2,"9",907),12) rec=rec+transval(ed("M22D",2,"9",905),13) rec=rec+transval(ed("M22D",2,"9",906),12) DO case CASE !EMPTY(ed("M22D",2,"10",1)) rec=rec+"1" CASE !EMPTY(ed("M22D",2,"10",2)) rec=rec+"2" OTHERWISE rec=rec+"0" ENDCASE rec=rec+transval(ed("M22D",2,"10",1001),12) rec=rec+transval(ed("M22D",2,"10",1002),12) rec=rec+transval(ed("M22D",2,"10",1003),12) rec=rec+transval(ed("M22D",2,"10",1004),12) rec=rec+transval(ed("M22D",2,"10",1005),12) rec=rec+transval(ed("M22D",2,"10",1006),4) rec=rec+transval(ed("M22D",2,"10",1007),12) rec=rec+replic(" ",11)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="57" rec=rec+transval(ed("M22D",2,"10",1008),12) rec=rec+transval(ed("M22D",2,"10",1009),4) rec=rec+transval(ed("M22D",2,"10",1010),12) rec=rec+transval(ed("M22D",2,"10",1011),12) rec=rec+transval(ed("M22D",2,"10",1012),12) rec=rec+transval(ed("M22D",2,"10",1013),13) rec=rec+transval(ed("M22D",2,"10",1014),4) rec=rec+transval(ed("M22D",2,"10",1015),4) rec=rec+transval(ed("M22D",2,"10",1016),12) rec=rec+replic(" ",84)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo Rec="58" rec=rec+transval(ed("M22D",1,"3",315),12) rec=rec+IIF(ed("M22D",1,"3",3150)=0," ",transform(ed("M22D",1,"3",3150), "@l 999")) rec=rec+IIF(ed("M22D",1,"4",4100)=0," ",transform(ed("M22D",1,"4",4100), "@l 999")) rec=rec+transval(ed("M22D",2,"7",722),12) rec=rec+transval(ed("M22D",2,"7",723),12) rec=rec+transval(ed("M22D",2,"7",724),12) rec=rec+transval(ed("M22D",2,"7",725),12) rec=rec+replic(" ",103)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trand=_trand+1 Registo rec="59" rec=rec+TRANSFORM(_trand, "@l 999999") rec=rec+replic(" ",163)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 ENDIF *---------------------------------------------------------- * No caso em que utilizado o anexo E *---------------------------------------------------------- If _panexoe=1 * 501 Registo rec="501" rec=rec+_pnipc rec=rec+alltrim(str(_pexerc)) rec=rec+replic(" ",155)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trane=_trane+1 * 502 Registo rec="502" rec=rec+transval(ed("M22E",1,"3",1),12) rec=rec+transval(ed("M22E",1,"3",2),12) rec=rec+transval(ed("M22E",1,"3",3),12) rec=rec+transval(ed("M22E",1,"3",4),12) rec=rec+transval(ed("M22E",1,"3",5),12) rec=rec+transval(ed("M22E",1,"3",7),12) rec=rec+transval(ed("M22E",1,"3",8),12) rec=rec+transval(ed("M22E",1,"3",9),12) rec=rec+transval(ed("M22E",1,"3",10),12) rec=rec+transval(ed("M22E",1,"3",11),12) rec=rec+transval(ed("M22E",1,"3",12),12) rec=rec+transval(ed("M22E",1,"3",13),12) rec=rec+transval(ed("M22E",1,"3",14),12) rec=rec+transval(ed("M22E",1,"3",15),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trane=_trane+1 * 503 Registo rec="503" rec=rec+transval(ed("M22E",1,"3",16),12) rec=rec+transval(ed("M22E",1,"3",17),12) rec=rec+transval(ed("M22E",1,"3",18),12) rec=rec+transval(ed("M22E",1,"3",19),12) rec=rec+transval(ed("M22E",1,"3",20),12) rec=rec+transval(ed("M22E",1,"3",22),12) rec=rec+transval(ed("M22E",1,"3",23),12) rec=rec+transval(ed("M22E",1,"3",24),12) rec=rec+transval(ed("M22E",1,"3",25),12) rec=rec+transval(ed("M22E",1,"3",26),12) rec=rec+transval(ed("M22E",1,"3",27),12) rec=rec+transval(ed("M22E",1,"3",28),12) rec=rec+transval(ed("M22E",1,"3",29),12) rec=rec+transval(ed("M22E",1,"3",30),12) rec=rec+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trane=_trane+1 * 504 Registo rec="504" IF !EMPTY(ed("M22E",1,"3",6)) REC="504" REC=REC+"00001" rec=rec+transval(ed("M22E",1,"3",6),12) rec=rec+transf(Ed("M22E",1,"3",98)*100,"@l 999") rec=rec+transval(ed("M22E",1,"3",21),12) rec=rec+REPLICATE(" ",136)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trane=_trane+1 ENDIF IF !EMPTY(ed("M22E",1,"3",61)) REC="504" REC=REC+"00002" rec=rec+transval(ed("M22E",1,"3",61),12) rec=rec+transf(Ed("M22E",1,"3",99)*100,"@l 999") rec=rec+transval(ed("M22E",1,"3",211),12) rec=rec+REPLICATE(" ",136)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trane=_trane+1 ENDIF * 505 Registo rec="505" rec=rec+transval(ed("M22E",1,"3",40),14) rec=rec+transval(ed("M22E",1,"3",41),14) rec=rec+transval(ed("M22E",1,"3",31),12) rec=rec+transval(ed("M22E",1,"3",42),14) rec=rec+transform(year(ed("M22E",1,"4",43)),"@l 9999")+transform(month(ed("M22E",1,"4",43)),"@l 99")+transform(day(ed("M22E",1,"4",43)),"@l 99") rec=rec+REPLICATE(" ",106)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trane=_trane+1 * 599 Registo rec="599" rec=rec+transf(_trane, "@l 999999") rec=rec+transval(ed("M22E",1,"3",6)+ed("M22E",1,"3",61),14) rec=rec+transval(ed("M22E",1,"3",21)+ed("M22E",1,"3",211),14) rec=rec+REPLICATE(" ",134)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Endif * -------- fim anexo E *--------------------------------------------------------------- Registo rec="888" rec=rec+transf(_trdec, "@l 9999999") rec=rec+replic(" ",161)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 Registo rec="999" rec=rec+transf(_trfic, "@l 9999999") rec=rec+replic(" ",161)+chr(13)+chr(10) =FWRITE(FileHandle,rec) *-------------------------------- =fclose(filehandle) =Messagebox("Cria o do Ficheiro efectuada ..",0+64,"") ENDPROC PROCEDURE saftfilecreate PARAMETERS _saftfilename * XML *---- PRIVATE lcxml lcxml = "" local lctrab, lntot_docs, lntotal_deb, lntotal_crd, crlf, lctransaction_type, lcdesc_first, lcdesc_last, lcdesc_final, lcdesc_doc, lcnif_sem_pais lctrab = "" lntot_docs = 0 lntotal_deb = 0.00 lntotal_crd = 0.00 crlf = chr(13) + chr(10) lctransaction_type = "N" lcdesc_first = "" lcdesc_last = "" lcdesc_final = "" lcdesc_doc = "" lnmes_inicio_contab = empresa.inicon lcnif_sem_pais = "" IF FILE(_saftfilename) if messagebox("O ficheiro indicado j existe" + chr(13) + chr(13) + "Deseja sobrepor?",4+32,"Aten o...") != 6 RETURN ELSE WAIT WINDOW "Cria o do ficheiro em curso, Aguarde ..." nowait ENDIF endif lcxml = opentag('?xml version="1.0" encoding="windows-1252"?',1) lcxml = lcxml + opentag('AuditFile xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.02_01"',1) *lcxml = lcxml + opentag('AuditFile xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.02_01" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"',1) =xseek(upper(p_codemp), "empresa", "key_1") * HEADER ------------------------------------------------------------------------------------------------------------------- WAIT WINDOW "Cria o do ficheiro em curso (Header), Aguarde ..." nowait lcxml = lcxml + opentag("Header",1) lcxml = lcxml + openclosetag("AuditFileVersion", "1.02_01") *lcxml = lcxml + openclosetag("CompanyID",ALLTRIM(thisform.limpa_char(thisform.concatenar(empresa.matricula), 1))) lcxml = lcxml + openclosetag("CompanyID", IIF(EMPTY(empresa.matricula), empresa.nif, ALLTRIM(thisform.limpa_char(empresa.matricula, 1)))) lcxml = lcxml + openclosetag("TaxRegistrationNumber",empresa.NIF) lcxml = lcxml + openclosetag("TaxAccountingBasis","C") lcxml = lcxml + openclosetag("CompanyName",ALLTRIM(thisform.limpa_char(empresa.firma))) lcxml = lcxml + opentag("CompanyAddress",1) *!* lcxml = lcxml + openclosetag("BuildingNumber",ALLTRIM(empresa.numero)) *!* lcxml = lcxml + openclosetag("StreetName",ALLTRIM(empresa.morada)) lcxml = lcxml + openclosetag("AddressDetail",ALLTRIM(thisform.limpa_char(empresa.morada))+", "+ALLTRIM(thisform.limpa_char(empresa.numero))+", "+ALLTRIM(thisform.limpa_char(empresa.andar))) lcxml = lcxml + openclosetag("City",ALLTRIM(thisform.limpa_char(empresa.localidade))) lcxml = lcxml + openclosetag("PostalCode",ALLTRIM(thisform.limpa_char(left(empresa.Cpostal, 8)))) lcxml = lcxml + openclosetag("Country","PT") lcxml = lcxml + closetag("CompanyAddress",1) lcxml = lcxml + openclosetag("FiscalYear",TRANSFORM(p_anoproc,"@l 9999")) lcxml = lcxml + openclosetag("StartDate",TRANSFORM(p_anoproc,"@l 9999")+"-01-01") lcxml = lcxml + openclosetag("EndDate",TRANSFORM(p_anoproc,"@l 9999")+"-12-31") lcxml = lcxml + openclosetag("CurrencyCode","EUR") lcxml = lcxml + openclosetag("DateCreated",TRANSFORM(YEAR(DATE()),"@l 9999")+"-"+TRANSFORM(month(DATE()),"@l 99")+"-"+TRANSFORM(day(DATE()),"@l 99")) lcxml = lcxml + openclosetag("TaxEntity","Sede") lcxml = lcxml + openclosetag("ProductCompanyTaxID","504899147") lcxml = lcxml + openclosetag("SoftwareCertificateNumber","0") lcxml = lcxml + openclosetag("ProductID","QP Contabilidade/QUERYPRO") lcxml = lcxml + openclosetag("ProductVersion",ALLTRIM(p_versao)) IF !EMPTY(empresa.tel1) lcxml = lcxml + openclosetag("Telephone",ALLTRIM(empresa.tel1)) ENDIF IF !EMPTY(empresa.fax) lcxml = lcxml + openclosetag("Fax",ALLTRIM(empresa.fax)) ENDIF IF !EMPTY(empresa.email) lcxml = lcxml + openclosetag("Email",ALLTRIM(empresa.email)) ENDIF lcxml = lcxml + closetag("Header",1) strtofile(lcxml, _saftfilename) lcxml="" * FIM HEADER -------------------------------------------------------------------------------------------------------------- * Inicio dos ficheiros Masters -------------------------------------------------------------------------------------------- lcxml = opentag("MasterFiles",1) strtofile(lcxml, _saftfilename,1) * GeneralLedger ------------------------------------------------------------------------------------------------------------ WAIT WINDOW "Cria o do ficheiro em curso (General Ledger), Aguarde ..." nowait SELECT conta as accountID,; desc as accountdescription, ; d00 as OpeningDebitBalance, ; c00 as OpeningCreditBalance, ; d14 as ClosingDebitBalance, ; c14 as ClosingCreditBalance, ; thisform.tipo(conta, tipo) as CategoriaTipo, ; conta_gs as GrauSuperior ; FROM plano ; where between(left(conta,1), "1", "8") ; order BY accountID ; INTO CURSOR GeneralLedger * Deteta contas sem descri SELECT accountID as accountID FROM GeneralLedger WHERE EMPTY(accountdescription) INTO CURSOR cs_erro_01 GO top IF RECCOUNT() > 0 DO FORM frmerro01 SELECT GeneralLedger SELECT cs_erro_01 RETURN .f. ENDIF SELECT cs_erro_01 *where conta >= "11" ; SELECT GeneralLedger GO top DO WHILE !EOF() lcxml = opentag("GeneralLedger",1) lcxml = lcxml + openclosetag("AccountID",ALLTRIM(GeneralLedger.AccountID)) lcxml = lcxml + openclosetag("AccountDescription",ALLTRIM(thisform.limpa_char(GeneralLedger.AccountDescription))) lcxml = lcxml + openclosetag("OpeningDebitBalance",transf(GeneralLedger.OpeningDebitBalance,"@l 999999999999.99")) lcxml = lcxml + openclosetag("OpeningCreditBalance",transf(GeneralLedger.OpeningCreditBalance,"@l 999999999999.99")) lcxml = lcxml + openclosetag("ClosingDebitBalance",transf(GeneralLedger.OpeningCreditBalance,"@l 999999999999.99")) lcxml = lcxml + openclosetag("ClosingCreditBalance",transf(GeneralLedger.OpeningCreditBalance,"@l 999999999999.99")) lcxml = lcxml + openclosetag("GroupingCategory",GeneralLedger.CategoriaTipo) IF ALLTRIM(GeneralLedger.CategoriaTipo) # "GR" lcxml = lcxml + openclosetag("GroupingCode",ALLTRIM(GeneralLedger.GrauSuperior)) endif lcxml = lcxml + closetag("GeneralLedger",1) strtofile(lcxml, _saftfilename,1) skip ENDDO * FIM GeneralLedger----------------------------------------------------------------------------------------------------------- * Customer -------------------------------------------------------------------------------------------------------------------- WAIT WINDOW "Cria o do ficheiro em curso (Customer), Aguarde ..." nowait *!* * Lista de contas 27, mas que afetam recapitulativos de clientes ( necess rio incorpora-las no plano Customer) *!* SELECT l_contad as conta_27 ; *!* from lanca ; *!* where l_mapar and ; *!* LEFT(l_contad, 2) = "27" AND; *!* l_tmapar = "C" ; *!* UNION ; *!* select l_contac as conta_27 ; *!* from lanca ; *!* where l_mapar and ; *!* LEFT(l_contac, 2) = "27" AND; *!* l_tmapar = "C" ; *!* order by conta_27 ; *!* into CURSOR cs_customer_27 SELECT plano.conta as CustomerID,; thisform.nif_sem_pais(plano.nif) as CustomerTaxID,; plano.desc as CompanyName,; iif(empty(plano.morada), "Desconhecido", plano.morada) as addressDetail,; iif(empty(plano.local), "Desconhecido", plano.local) as City,; iif(empty(plano.codpos), "Desconhecido", plano.codpos) as PostalCode,; plano.tel as tel, ; plano.fax as fax, ; plano.email as email, ; thisform.get_pais_do_nif(nif) as Country, ; 0 as sem_conta ; FROM plano ; WHERE plano.tipo="M" AND (LEFT(conta,2)="21" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278") ; ORDER BY CustomerID ; INTO CURSOR Customer readwrite * Lista de nif's do plano p/ utilizar em movimentos que n o passaram por conta de terceiro, mas esta existe no plano SELECT nif as nif, ; conta as conta ; FROM plano; WHERE tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278") ; ORDER BY nif; INTO CURSOR Customer_2 INDEX ON nif TAG key_1 * Deteta contas cliente sem NIF SELECT CustomerID as contaID, CompanyName as CompanyName FROM Customer ; WHERE EMPTY(CustomerTaxID) OR UPPER(CustomerTaxID) = "DESCONHECIDO" ; INTO CURSOR cs_erro_02 GO top IF RECCOUNT() > 0 PUBLIC p_contassemnif p_contassemnif = 0 DO FORM frmerro02 WITH "Clientes" IF p_contassemnif = 9 SELECT GeneralLedger USE SELECT Customer use SELECT cs_erro_02 USE RETURN .f. ENDIF RELEASE p_contassemnif ENDIF SELECT cs_erro_02 * Seleciona NIFs Cliente dos movim., dos quais n o exite conta (Lan amentos diretos em caixa/bancos, mas que afetaram recapitulativos) *!* SELECT l_nif ; *!* from lanca ; *!* WHERE !EMPTY(l_nif) AND ; *!* l_tmapar = "C" AND ; *!* l_nif NOT in (select nif FROM plano WHERE tipo="M" AND LEFT(conta,2)="21") ; *!* GROUP BY l_nif ; *!* INTO CURSOR cs_nifs_caixa SELECT l_nif ; from lanca ; WHERE !EMPTY(l_nif) AND ; l_tmapar = "C" AND ; l_nif NOT in (select nif FROM plano WHERE tipo="M" AND LEFT(conta,2)="21") ; GROUP BY l_nif ; INTO CURSOR cs_nifs_caixa SELECT cs_nifs_caixa IF RECCOUNT() > 0 GO top SCAN lcnif_sem_pais = thisform.nif_sem_pais(cs_nifs_caixa.l_nif) INSERT INTO Customer (CustomerID, CustomerTaxID, CompanyName, addressDetail, City, PostalCode, tel, fax, email, Country, ; sem_conta) VALUES ("__C" + lcnif_sem_pais, lcnif_sem_pais, "NIF " + lcnif_sem_pais + " (Nome nao fornecido)", ; "Desconhecido", "Desconhecido", "Desconhecido", "", "", "", thisform.get_pais_do_nif(cs_nifs_caixa.l_nif), 1) ENDSCAN ENDIF SELECT cs_nifs_caixa SELECT Customer GO top DO WHILE !EOF() lcxml = opentag("Customer",1) lcxml = lcxml + openclosetag("CustomerID",ALLTRIM(Customer.CustomerID)) lcxml = lcxml + openclosetag("AccountID",IIF(LEFT(Customer.CustomerID,2)="__","Desconhecido",ALLTRIM(Customer.CustomerID))) lcxml = lcxml + openclosetag("CustomerTaxID",ALLTRIM(Customer.CustomerTaxID)) lcxml = lcxml + openclosetag("CompanyName",ALLTRIM(thisform.limpa_char(Customer.CompanyName))) lcxml = lcxml + opentag("BillingAddress",1) lcxml = lcxml + openclosetag("AddressDetail",ALLTRIM(thisform.limpa_char(Customer.addressDetail))) lcxml = lcxml + openclosetag("City",ALLTRIM(thisform.limpa_char(Customer.City))) lcxml = lcxml + openclosetag("PostalCode",ALLTRIM(thisform.limpa_char(Customer.PostalCode))) lcxml = lcxml + openclosetag("Country",ALLTRIM(thisform.limpa_char(Customer.Country))) lcxml = lcxml + closetag("BillingAddress",1) if !empty(Customer.tel) lcxml = lcxml + openclosetag("Telephone",ALLTRIM(Customer.tel)) endif if !empty(Customer.fax) lcxml = lcxml + openclosetag("Fax",ALLTRIM(Customer.fax)) endif if !empty(Customer.email) lcxml = lcxml + openclosetag("Email",ALLTRIM(Customer.email)) endif lcxml = lcxml + openclosetag("SelfBillingIndicator","0") lcxml = lcxml + closetag("Customer",1) strtofile(lcxml, _saftfilename,1) skip Enddo * FIM Customer ----------------------------------------------------------------------------------------------------------------- * Suppplier --------------------------------------------------------------------------------------------------------------------- WAIT WINDOW "Cria o do ficheiro em curso (Supplier), Aguarde ..." nowait SELECT plano.conta as SupplierID,; thisform.nif_sem_pais(plano.nif) as SupplierTaxID,; plano.desc as CompanyName,; iif(empty(plano.morada), "Desconhecido", plano.morada) as addressDetail,; iif(empty(plano.local), "Desconhecido", plano.local) as City,; iif(empty(plano.codpos), "Desconhecido", plano.codpos) as PostalCode,; plano.tel as tel, ; plano.fax as fax, ; plano.email as email, ; thisform.get_pais_do_nif(nif) as Country, ; 0 as sem_conta ; FROM plano; WHERE plano.tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278"); ORDER BY supplierID ; INTO CURSOR Supplier readwrite * Lista de nif's do plano p/ utilizar em movimentos que n o passaramm por conta de terceiro, mas esta existe no plano SELECT nif as nif,; conta as conta ; FROM plano; WHERE tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278"); ORDER BY nif ; INTO CURSOR Supplier_2 readwrite INDEX ON nif TAG key_1 * Deteta contas fornecedor sem NIF SELECT SupplierID as contaID, CompanyName as CompanyName FROM Supplier ; WHERE EMPTY(SupplierTaxID) OR UPPER(SupplierTaxID) = "DESCONHECIDO" ; INTO CURSOR cs_erro_02 GO top IF RECCOUNT() > 0 PUBLIC p_contassemnif p_contassemnif = 0 DO FORM frmerro02 WITH "Fornecedores" IF p_contassemnif = 9 SELECT GeneralLedger USE SELECT Customer use SELECT Supplier use SELECT cs_erro_02 USE RETURN .f. ENDIF RELEASE p_contassemnif ENDIF SELECT cs_erro_02 * Seleciona NIFs Fornecedor dos movim., dos quais n o exite conta (Lan amentos diretos em caixa/bancos, mas que afetaram recapitulativos) SELECT l_nif ; from lanca ; WHERE !EMPTY(l_nif) AND ; l_tmapar = "F" AND ; l_nif NOT in (select nif FROM plano WHERE tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278")) ; GROUP BY l_nif ; INTO CURSOR cs_nifs_caixa SELECT cs_nifs_caixa IF RECCOUNT() > 0 GO top SCAN lcnif_sem_pais = thisform.nif_sem_pais(cs_nifs_caixa.l_nif) INSERT INTO Supplier (SupplierID, SupplierTaxID, CompanyName, addressDetail, City, PostalCode, tel, fax, email, Country, ; sem_conta) VALUES ("__F" + lcnif_sem_pais, lcnif_sem_pais, "NIF " + lcnif_sem_pais + " (Nome nao fornecido)", ; "Desconhecido", "Desconhecido", "Desconhecido", "", "", "", thisform.get_pais_do_nif(cs_nifs_caixa.l_nif), 1) ENDSCAN ENDIF SELECT cs_nifs_caixa SELECT Supplier GO top DO WHILE !EOF() lcxml = opentag("Supplier",1) lcxml = lcxml + openclosetag("SupplierID",ALLTRIM(Supplier.SupplierID)) lcxml = lcxml + openclosetag("AccountID",IIF(LEFT(Supplier.SupplierID,2)="__","Desconhecido",ALLTRIM(Supplier.SupplierID))) lcxml = lcxml + openclosetag("SupplierTaxID",ALLTRIM(Supplier.SupplierTaxID)) lcxml = lcxml + openclosetag("CompanyName",ALLTRIM(thisform.limpa_char(Supplier.CompanyName))) lcxml = lcxml + opentag("BillingAddress",1) lcxml = lcxml + openclosetag("AddressDetail",ALLTRIM(thisform.limpa_char(Supplier.addressDetail))) lcxml = lcxml + openclosetag("City",ALLTRIM(thisform.limpa_char(Supplier.City))) lcxml = lcxml + openclosetag("PostalCode",ALLTRIM(thisform.limpa_char(Supplier.PostalCode))) lcxml = lcxml + openclosetag("Country",ALLTRIM(thisform.limpa_char(Supplier.Country))) lcxml = lcxml + closetag("BillingAddress",1) if !empty(Supplier.tel) lcxml = lcxml + openclosetag("Telephone",ALLTRIM(Supplier.tel)) endif if !empty(Supplier.fax) lcxml = lcxml + openclosetag("Fax",ALLTRIM(Supplier.fax)) endif if !empty(Supplier.email) lcxml = lcxml + openclosetag("Email",ALLTRIM(Supplier.email)) endif lcxml = lcxml + openclosetag("SelfBillingIndicator","0") lcxml = lcxml + closetag("Supplier",1) strtofile(lcxml, _saftfilename,1) skip Enddo * FIM Supplier ------------------------------------------------------------------------------------------------------------------ * Inicio do Taxatable ---------------------------------------------------------------------------------------------------------- STORE 0.00 TO ptaxa_red, ptaxa_nor, ptaxa_int =SET_PARMS("TAXASIVA") lcxml = opentag("TaxTable",1) strtofile(lcxml, _saftfilename,1) lcxml = opentag("TaxTableEntry",1) lcxml = lcxml + openclosetag("TaxType","IVA") lcxml = lcxml + openclosetag("TaxCountryRegion","PT") lcxml = lcxml + openclosetag("TaxCode","RED") lcxml = lcxml + openclosetag("Description","Taxa Reduzida") lcxml = lcxml + openclosetag("TaxPercentage",TRANSFORM(ptaxa_red, "@l 999.99")) lcxml = lcxml + closetag("TaxTableEntry",1) strtofile(lcxml, _saftfilename,1) lcxml = opentag("TaxTableEntry",1) lcxml = lcxml + openclosetag("TaxType","IVA") lcxml = lcxml + openclosetag("TaxCountryRegion","PT") lcxml = lcxml + openclosetag("TaxCode","INT") lcxml = lcxml + openclosetag("Description","Taxa Intermedia") lcxml = lcxml + openclosetag("TaxPercentage",TRANSFORM(ptaxa_int, "@l 999.99")) lcxml = lcxml + closetag("TaxTableEntry",1) strtofile(lcxml, _saftfilename,1) lcxml = opentag("TaxTableEntry",1) lcxml = lcxml + openclosetag("TaxType","IVA") lcxml = lcxml + openclosetag("TaxCountryRegion","PT") lcxml = lcxml + openclosetag("TaxCode","NOR") lcxml = lcxml + openclosetag("Description","Taxa Normal") lcxml = lcxml + openclosetag("TaxPercentage",TRANSFORM(ptaxa_nor, "@l 999.99")) lcxml = lcxml + closetag("TaxTableEntry",1) strtofile(lcxml, _saftfilename,1) lcxml = opentag("TaxTableEntry",1) lcxml = lcxml + openclosetag("TaxType","IVA") lcxml = lcxml + openclosetag("TaxCountryRegion","PT") lcxml = lcxml + openclosetag("TaxCode","ISE") lcxml = lcxml + openclosetag("Description","Isenta") lcxml = lcxml + openclosetag("TaxPercentage", "000.00") lcxml = lcxml + closetag("TaxTableEntry",1) strtofile(lcxml, _saftfilename,1) * Fim do Taxtable lcxml = closetag("TaxTable",1) strtofile(lcxml, _saftfilename,1) *------------------------------------------------------------------------------------------------------------------------------- *Fim dos ficheiros Masters------------------------------------------------------------------------------------------------------ lcxml = closetag("MasterFiles",1) strtofile(lcxml, _saftfilename,1) *INICIO do GeneralLedgerEntries ------------------------------------------------------------------------------------------------ WAIT WINDOW "Cria o do ficheiro em curso (General Ledger Entries), Aguarde ..." nowait * Total a Debito e a Credito select sum(iif(!empty(l_contad) AND BETWEEN(LEFT(l_contad, 1), "1", "8"), l_valor, 0.00)) as g_debito,; sum(iif(!empty(l_contac) AND BETWEEN(LEFT(l_contac, 1), "1", "8"), l_valor, 0.00)) as g_credito; from lanca; where between(l_mes,01,15) ; into cursor cs_total lntot_deb = cs_total.g_debito lntot_crd = cs_total.g_credito select cs_total * transform(l_diario, "@L 99")+transform(l_mes, "@L 99")+transform(l_docu, "@L 999999") as TransactionID, ; * transform(l_diario, "@L 99")+transform(l_mes, "@L 99")+transform(l_docu, "@L 999999")+transform(l_linha, "@L 9999")+"1" as RecordID, ; * cs_linhas select transform(l_linha, "@L 9999")+"1" as RecordID, ; transform(p_anoproc, "@L 9999")+"-"+transform(l_mes, "@L 99")+"-"+transform(l_dia, "@L 99")+" "+transform(l_diario, "@L 99")+" "+transform(l_docu, "@L 999999") as TransactionID, ; l_diario as l_diario, ; l_docu as l_docu, ; l_mes as l_mes, ; l_dia as l_dia, ; l_mapar as l_mapar, ; l_tmapar as l_tmapar, ; l_contad as AccoundID, ; l_datahora as SystemEntryDate, ; l_desc as Description, ; IIF("#RG" $ UPPER(l_desc), 1, 0) as Regulariz, ; l_nif as nif, ; l_valor as DebitAmount, ; 0.00 as CreditAmount ; from lanca ; where between(l_mes, 1, 15) and ; !empty(l_contad) AND BETWEEN(LEFT(l_contad, 1), "1", "8") ; union all ; select transform(l_linha, "@L 9999")+"2" as RecordID, ; transform(p_anoproc, "@L 9999")+"-"+transform(l_mes, "@L 99")+"-"+transform(l_dia, "@L 99")+" "+transform(l_diario, "@L 99")+" "+transform(l_docu, "@L 999999") as TransactionID, ; l_diario as l_diario, ; l_docu as l_docu, ; l_mes as l_mes, ; l_dia as l_dia, ; l_mapar as l_mapar, ; l_tmapar as l_tmapar, ; l_contac as AccountID, ; l_datahora as SystemEntryDate, ; l_desc as Description, ; IIF("#RG" $ UPPER(l_desc), 1, 0) as Regulariz, ; l_nif as nif, ; 0.00 as DebitAmount, ; l_valor as CreditAmount ; from lanca ; where between(l_mes, 1, 15) and ; !empty(l_contac) AND BETWEEN(LEFT(l_contac, 1), "1", "8") ; order by TransactionID, RecordID ; into cursor cs_linhas index on TransactionID tag key_1 * l_util as l_util, ; * !empty(l_contad) AND l_contad >= "11" ; * l_util as l_util, ; * !empty(l_contac) AND l_contac >= "11" ; * cs_desc_documentos *!* select TransactionID as TransactionID, ; *!* SPACE(60) as Description ; *!* from cs_linhas ; *!* group by TransactionID ; *!* into cursor cs_desc_documentos readwrite *!* *!* INDEX ON TransactionID TAG key_1 *!* GO top *!* SCAN *!* lcdesc_first = "" *!* lcdesc_last = "" *!* lcdesc_final = "" *!* SELECT cs_linhas *!* SET FILTER TO TransactionID = cs_desc_documentos.TransactionID *!* GO top *!* lcdesc_first = ALLTRIM(cs_linhas.Description) *!* GO bottom *!* lcdesc_last = ALLTRIM(cs_linhas.Description) *!* IF lcdesc_first = lcdesc_last *!* lcdesc_final = lcdesc_first *!* ELSE *!* lcdesc_final = lcdesc_first + ", " + lcdesc_last *!* ENDIF *!* SET FILTER TO *!* SELECT cs_desc_documentos *!* replace Description WITH lcdesc_final *!* ENDSCAN *!* iif(l_tmapar = "C", IIF(left(AccountID, 1) = "2", AccountID, "__C" + thisform.nif_sem_pais(nif)), " ") as cliente, ; *!* iif(l_tmapar = "F", IIF(left(AccountID, 1) = "2", AccountID, "__F" + thisform.nif_sem_pais(nif)), " ") as fornecedor ; * cs_documento_com_terceiro (Recapitulativos) select TransactionID as TransactionID, ; iif(l_tmapar = "C", IIF(left(AccountID, 1) = "2", AccountID, this.get_conta_do_nif_c(nif)), " ") as cliente, ; iif(l_tmapar = "F", IIF(left(AccountID, 1) = "2", AccountID, this.get_conta_do_nif_f(nif)), " ") as fornecedor ; from cs_linhas ; where !empty(AccountID) and ; l_mapar and ; (left(AccountID, 1) = "2" OR !EMPTY(nif)) ; into cursor cs_documento_com_terceiro_recapitul SELECT Customer_2 SELECT Supplier_2 * cs_documento_com_terceiro (N o residentes) select TransactionID as TransactionID, ; iif(LEFT(a.AccountID, 2) = "21", AccountID, " ") as cliente, ; iif(LEFT(a.AccountID, 2) # "21", AccountID, " ") as fornecedor ; from cs_linhas a, plano b ; where a.AccountID = b.conta and ; !empty(a.AccountID) and ; !l_mapar and ; left(AccountID, 1) = "2" AND ; isalpha(b.nif) AND ; UPPER(LEFT(b.nif, 2)) # "PT" ; into cursor cs_documento_com_terceiro_nresid * cs_documento_com_terceiro (final) SELECT TransactionID as TransactionID, ; cliente as cliente, ; fornecedor as fornecedor ; FROM cs_documento_com_terceiro_recapitul ; UNION ALL ; select TransactionID as TransactionID, ; cliente as cliente, ; fornecedor as fornecedor ; FROM cs_documento_com_terceiro_nresid ; INTO CURSOR cs_documento_com_terceiro SELECT cs_documento_com_terceiro_recapitul SELECT cs_documento_com_terceiro_nresid * cs_documento select a.TransactionID as TransactionID, ; transform(a.l_mes, "@L 99") as Period, ; transform(p_anoproc, "@L 9999") + "-" + IIF(a.l_mes > 12, "12-31", transform(a.l_mes, "@L 99") + "-" + transform(a.l_dia, "@L 99")) as TransactionDate, ; sum(a.Regulariz) as Regulariz, ; a.l_diario as l_diario, ; a.l_docu as l_docu, ; a.Description as Description, ; min(a.SystemEntryDate) as GLPostingDate, ; b.cliente as CustomerID, ; b.fornecedor as SupplierID ; from cs_linhas a left outer join cs_documento_com_terceiro b on a.TransactionID = b.TransactionID ; order by a.TransactionID, GLPostingDate ; group by a.TransactionID ; into cursor cs_documento * index on TransactionID tag key_1 * a.l_util as Util lntot_docs = reccount() select cs_documento_com_terceiro *!* select cs_desc_documentos *!* use * cs_diarios select a.TransactionID as TransactionID, ; a.l_diario as codigo, ; b.descricao as descricao ; from cs_linhas a, diario b ; where a.l_diario = b.codigo ; order by TransactionID ; group by l_diario into cursor cs_diarios lcxml = "" lcxml = lcxml + opentag("GeneralLedgerEntries", 1) lcxml = lcxml + openclosetag("NumberOfEntries", alltrim(str(lntot_docs))) lcxml = lcxml + openclosetag("TotalDebit", transform(lntot_deb, "@L 99999999999.99")) lcxml = lcxml + openclosetag("TotalCredit", transform(lntot_crd, "@L 99999999999.99")) strtofile(lcxml, _saftfilename, 1) lcxml = "" * Diarios select cs_diarios go top lcxml = lcxml + opentag("Journal", 1) lcxml = lcxml + openclosetag("JournalID", transform(cs_diarios.codigo, "@L 99")) lcxml = lcxml + openclosetag("Description", alltrim(thisform.limpa_char(cs_diarios.descricao))) strtofile(lcxml, _saftfilename, 1) lcxml = "" * Transaction select cs_documento go top scan for l_diario = cs_diarios.codigo lcxml = lcxml + opentag("Transaction", 1) lcdesc_doc = "Doc. contabilistico " + ALLTRIM(STR(l_docu)) + ; ", mes " + ALLTRIM(mtoe(VAL(cs_documento.Period), lnmes_inicio_contab)) + ; ", diario " + thisform.limpa_char(ALLTRIM(cs_diarios.descricao)) lcxml = lcxml + openclosetag("TransactionID", cs_documento.TransactionID) lcxml = lcxml + openclosetag("Period", cs_documento.Period) lcxml = lcxml + openclosetag("TransactionDate", cs_documento.TransactionDate) * lcxml = lcxml + openclosetag("SourceID", ALLTRIM(cs_documento.Util)) lcxml = lcxml + openclosetag("SourceID", ALLTRIM(p_login)) * lcxml = lcxml + openclosetag("Description", IIF(EMPTY(cs_documento.Description), "Desconhacido", alltrim(thisform.limpa_char(cs_documento.Description)))) lcxml = lcxml + openclosetag("Description", lcdesc_doc) lcxml = lcxml + openclosetag("DocArchivalNumber", transform(l_docu, "@L 999999")) lctransaction_type = IIF(cs_documento.Period = "13", "J", IIF(cs_documento.Period = "14", "A", IIF(cs_documento.Regulariz > 0, "R", "N"))) lcxml = lcxml + openclosetag("TransactionType", lctransaction_type) lctrab = "" if empty(cs_documento.GLPostingDate) lctrab = cs_documento.TransactionDate + "T00:00:00" else lctrab = transform(year(cs_documento.GLPostingDate), "@L 9999") + "-" + ; transform(month(cs_documento.GLPostingDate), "@L 99") + "-" + ; transform(day(cs_documento.GLPostingDate), "@L 99") + "T" + ; transform(hour(cs_documento.GLPostingDate), "@L 99") + ":" + ; transform(minute(cs_documento.GLPostingDate), "@L 99") + ":" + ; transform(sec(cs_documento.GLPostingDate), "@L 99") endif lcxml = lcxml + openclosetag("GLPostingDate", lctrab) if isnull(cs_documento.CustomerID) or empty(cs_documento.CustomerID) else lcxml = lcxml + openclosetag("CustomerID", ALLTRIM(cs_documento.CustomerID)) endif if isnull(cs_documento.SupplierID) or empty(cs_documento.SupplierID) else lcxml = lcxml + openclosetag("SupplierID", alltrim(cs_documento.SupplierID)) endif * Linhas select cs_linhas scan for TransactionID = cs_documento.TransactionID lcxml = lcxml + opentag("Line", 1) lcxml = lcxml + openclosetag("RecordID", cs_linhas.RecordID) lcxml = lcxml + openclosetag("AccountID", alltrim(cs_linhas.AccountID)) lctrab = "" if empty(cs_linhas.SystemEntryDate) lctrab = cs_documento.TransactionDate + "T00:00:00" else lctrab = transform(year(cs_linhas.SystemEntryDate), "@L 9999") + "-" + ; transform(month(cs_linhas.SystemEntryDate), "@L 99") + "-" + ; transform(day(cs_linhas.SystemEntryDate), "@L 99") + "T" + ; transform(hour(cs_linhas.SystemEntryDate), "@L 99") + ":" + ; transform(minute(cs_linhas.SystemEntryDate), "@L 99") + ":" + ; transform(sec(cs_linhas.SystemEntryDate), "@L 99") endif lcxml = lcxml + openclosetag("SystemEntryDate", lctrab) lcxml = lcxml + openclosetag("Description", IIF(EMPTY(cs_linhas.Description), "Desconhecido", alltrim(thisform.limpa_char(cs_linhas.Description)))) if cs_linhas.DebitAmount = 0 lcxml = lcxml + openclosetag("CreditAmount", transform(cs_linhas.CreditAmount, "@L 9999999999.99")) else lcxml = lcxml + openclosetag("DebitAmount", transform(cs_linhas.DebitAmount, "@L 9999999999.99")) endif lcxml = lcxml + closetag("Line", 1) endscan select cs_documento lcxml = lcxml + closetag("Transaction", 1) strtofile(lcxml, _saftfilename, 1) lcxml = "" endscan select cs_diarios lcxml = lcxml + closetag("Journal", 1) strtofile(lcxml, _saftfilename, 1) lcxml = "" endscan lcxml = lcxml + closetag("GeneralLedgerEntries", 1) strtofile(lcxml, _saftfilename, 1) lcxml = "" select cs_diarios select cs_documento select cs_linhas *Fim do GeneralLedgerEntries --------------------------------------------------------------------------------------------------- *Fim do Ficheiro de auditoria-------------------------------------------------------------------------------------------------- lcxml = closetag("AuditFile",1) strtofile(lcxml, _saftfilename,1) wait window "Grava o concluida." timeout 0.5 ENDPROC PROCEDURE limpa_char lparam _string, _opc local lcstring, lcret, lnopc IF PARAMETERS() < 2 lnopc = 0 lnopc = 1 ENDIF lcstring = _string lcret = "" lcret = strtran(lcstring, "&", "E") lcret = strtran(lcret, ">", "") lcret = strtran(lcret, "<", "") lcret = strtran(lcret, "#", "") lcret = strtran(lcret, "/", "") lcret = strtran(lcret, "\", "") lcret = strtran(lcret, " ", "") lcret = strtran(lcret, " ", "") lcret = strtran(lcret, ".", "") IF lnopc = 1 lcret = strtran(lcret, "-", "") endif lcret = strtran(lcret, chr(144), chr(69)) return lcret ENDPROC PROCEDURE concatenar lparam _string local lcret, lcstring, lnind, lctrab, lnpos lcstring = alltrim(_string) lcret = "" lnind = 1 lctrab = "" lnpos = 0 lcstring = strtran(lcstring, " ", "") lcstring = strtran(lcstring, ".", "") for lnind = 1 to len(lcstring) lctrab = substr(lcstring, lnind, 1) if lctrab $ ("0123456789") lnpos = lnind exit endif endfor lcret = left(lcstring, lnpos-1) + " " + substr(lcstring, lnpos) return lcret ENDPROC PROCEDURE decrecapfilecreate **** Crea o ficheiro declara o recapitulativa do Iva (Op. intracomunitaria) PARAMETERS _decrecapfilename _trfic=0 _trdec=0 _trrec=0 if !file(_decrecapfilename) filehandle=fcreate(_decrecapfilename) filehandle=fopen(_decrecapfilename,2) endif Registo rec="01ASCII01"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",117)+chr(13)+chr(10) =FWRITE(FileHandle,rec) Registo rec="02DRECA"+p_nif rec=rec+TRANSFORM(p_anoproc, "@l 9999") DO case CASE !EMPTY(_mensal) rec=rec+PADR(alltrim(_mensal),3," ") OTHERWISE rec=rec+alltrim(_trimestral) ENDCASE IF !EMPTY(_mesincinf) rec=rec+ALLTRIM(_mesincinf) ELSE rec=rec+" " ENDIF IF !EMPTY(_mesincsup) rec=rec+ALLTRIM(_mesincsup) rec=rec+" " Endif rec=rec+repli(" ",107)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 Registo Rec="03" DO case CASE EMPTY(_11) rec=rec+"2" OTHERWISE rec=rec+"1" ENDCASE DO CASE CASE _1a=0 AND _1b=0 rec=rec+"0" CASE _1a=1 rec=rec+"1" CASE _1b=1 rec=rec+"2" ENDCASE DO case CASE _21=0 rec=rec+"0" OTHERWISE rec=rec+"1" ENDCASE DO case CASE _21a=1 rec=rec+"1" otherwise rec=rec+"2" ENDCASE DO case CASE _22=1 rec=rec+"1" OTHERWISE rec=rec+"0" ENDCASE DO case CASE _23=1 rec=rec+"1" otherwise rec=rec+"0" ENDCASE rec=rec+repli(" ",126)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 _trdec=_trdec+1 *-------------------------------------------------------------------------- Registo SELECT OPINTRA GO TOP insrec=0 DO WHILE !EOF() insrec=insrec+1 Rec="04" Rec=rec+TRANSFORM(insrec, "@l 99999") rec=rec+left(opintra._prefixo,2) rec=rec+PADR(ALLTRIM(opintra._nif),12," ") rec=rec+transval(opintra._valor,13,1) rec=rec+ALLTRIM(STR(opintra._tipooper)) rec=rec+repli(" ",99)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 _trdec=_trdec+1 _trrec=_trrec+1 skip Enddo * ------------------------------------------------------------------------- * 09 Trailer declara o recapitulativa Rec="09" rec=rec+TRANSFORM(_trrec, "@l 99999") rec=rec+TRANSFORM(_pniftoc, "@l 999999999") rec=rec+transval(_tot1,13,1) rec=rec+transval(_tot2,13,1) rec=rec+transval(_tot3,13,1) rec=rec+transval(_tot4,13,1) rec=rec+repli(" ",66)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 _trdec=_trdec+1 *-------------------------------------------------------------------------- * 89 Registo Trailer da Declara rec="89" rec=rec+transform(_trdec, "@l 999999999") rec=rec+replic(" ",123)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 *----------------------------------------------------------------------- Registo Trailer do ficheiro rec="99" rec=rec+transform(_trfic, "@l 999999999") rec=rec+replic(" ",123)+chr(13)+chr(10) =FWRITE(FileHandle,rec) *-------------------------------- =fclose(filehandle) =Messagebox("Cria o do Ficheiro efectuada ..",0+64,"") RETURN ENDPROC PROCEDURE decivafilecreate lparam _ana, _anb _triva=0 _trdec=0 _trfic=0 _tranc=0 _trana=0 _tranm=0 _trani=0 _tranf=0 if !file(_ivafilename) filehandle=fcreate(_ivafilename) filehandle=fopen(_ivafilename,2) endif Registo rec="01ASCII04"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",117)+chr(13)+chr(10) =FWRITE(FileHandle,rec) Registo rec="02DPIVA"+P_NIF * dentro ou fora do prazo IF _cprazo=1 rec=rec+"1" rec=rec+"2" ENDIF rec=rec+replic(" ",117)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trfic=_trfic+1 Registo rec="03" DO CASE CASE _copc=1 rec=rec+"1" CASE _copa=1 rec=rec+"2" CASE _copm=1 rec=rec+"3" OTHERWISE rec=rec+"0" Endcase Do case case _canexoc=0 and _canexoa=0 and _canexom=0 rec=rec+"000" case _canexoc!=0 and _canexoa=0 and _canexom=0 rec=rec+"100" case _canexoa!=0 and _canexoc=0 and _canexom=0 rec=rec+"020" case _canexom!=0 and _canexoc=0 and _canexoa=0 rec=rec+"003" case _canexoc!=0 and _canexoa!=0 and _canexom=0 rec=rec+"120" case _canexoc=0 and _canexoa!=0 and _canexom!=0 rec=rec+"023" case _canexoc!=0 and _canexoa=0 and _canexom!=0 rec=rec+"103" Endcase If _copimob=0 rec=rec+"0" rec=rec+"0" Endif If _cintrac=0 rec=rec+"0" rec=rec+"5" Endif ** Rela o de Clientes rec=rec+ALLTRIM(STR(_nrrelcli)) ** Rela o de fornecedores rec=rec+ALLTRIM(STR(_nrrelfor)) ** Rela o de dos sujeitos passivos que respeitam as regulariza rec=rec+ALLTRIM(STR(_nrrelsuj)) ** inexistencia de opera If _cnaoop=0 rec=rec+"0" rec=rec+"1" Endif rec=rec+alltrim(str(p_anoproc)) if _cmensal=1 rec=rec+transf(month(_cperiods), "@l 99")+" " rec=rec+transf(month(_cperiods), "@l 99")+"T" Endif rec=rec+replic(" ",115)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="04" rec=rec+transval(campo(1),12) rec=rec+transval(campo(5),12) rec=rec+transval(campo(3),12) rec=rec+transval(round(campo(7),0),12) rec=rec+transval(campo(8),12) rec=rec+transval(campo(9),12) rec=rec+transval(campo(10),12) rec=rec+transval(campo(90),12) rec=rec+replic(" ",36)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="05" rec=rec+transval(campo(20),12) rec=rec+transval(campo(21),12) rec=rec+transval(campo(23),12) rec=rec+transval(campo(22),12) rec=rec+transval(campo(24),12) rec=rec+transval(campo(40),12) rec=rec+transval(campo(61),12) rec=rec+transval(campo(65),12) rec=rec+transval(campo(67),12) rec=rec+transval(campo(81),12) rec=rec+transval(campo(91),12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="06" rec=rec+transval(campo(2),12) rec=rec+transval(campo(6),12) rec=rec+transval(campo(4),12) rec=rec+transval(campo(11),12) rec=rec+transval(campo(41),12) rec=rec+transval(campo(66),12) rec=rec+transval(campo(68),12) rec=rec+transval(campo(92),12) rec=rec+transval(campo(93),12) rec=rec+transval(campo(94),12) rec=rec+transval(campo(95),12)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="07" rec=rec+transval(campo(96),12) rec=rec+transval(0.00,12) rec=rec+transval(0.00,12) DO CASE CASE _cinvert=1 rec=rec+"10" CASE _cinvert=2 rec=rec+"02" OTHERWISE rec=rec+"00" ENDCASE rec=rec+transval(0.00,12) rec=rec+"0" rec=rec+"00000000" rec=rec+"0" rec=rec+"00000000" rec=rec+replic(" ",64)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo (novo registo a partir de 2010) rec="30" rec=rec+transval(campo(12),12) rec=rec+transval(campo(14),12) rec=rec+transval(campo(15),12) rec=rec+transval(campo(16),12) rec=rec+transval(campo(13),12) rec=rec+transval(campo(17),12) rec=rec+replic(" ",60)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo (novo registo a partir de 2010) rec="31" rec=rec+transval(campo(97),12) rec=rec+transval(campo(98),12) rec=rec+transval(campo(99),12) rec=rec+transval(campo(100),12) rec=rec+transval(campo(101),12) rec=rec+transval(campo(102),12) rec=rec+transval(campo(103),12) rec=rec+transval(campo(104),12) rec=rec+transval(campo(105),12) rec=rec+replic(" ",24)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 Registo rec="08" rec=rec+transf(_triva, "@l 999") rec=rec+TRANSFORM(VAL(_pniftoc), "@L 999999999") rec=rec+transval(campo(90)+campo(91)+campo(92)+campo(93)+campo(94)+campo(95)+campo(96),13) rec=rec+replic(" ",107)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 *--------------------------------------------------------------------------- ANEXO A If _copa=1 Wait window "Aguarde apuramento do anexo para os a ores" nowait c020a1_f.prepanexoacores Registo rec="09" rec=rec+"2" rec=rec+p_nif rec=rec+transf(p_anoproc, "@l 9999") if _cmensal=1 rec=rec+transf(month(_cperiods), "@l 99")+" " else rec=rec+transf(month(_cperiods), "@l 99")+"T" Endif rec=rec+replic(" ",115)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 *!* * 9 Registo ---- Repetido no ficheiro base *!* rec="09" *!* rec=rec+"2" *!* rec=rec+p_nif *!* rec=rec+transf(p_anoproc, "@l 9999") *!* *!* if _cmensal=1 *!* rec=rec+transf(month(_cperiods), "@l 99")+" " *!* else *!* rec=rec+transf(month(_cperiods), "@l 99")+"T" *!* Endif *!* rec=rec+replic(" ",115)+chr(13)+chr(10) *!* =FWRITE(FileHandle,rec) *!* _trana=_trana+1 *!* _trdec=_trdec+1 *!* _trfic=_trfic+1 * 10 Registo rec="10" rec=rec+"2" rec=rec+transval(campo(1),12) rec=rec+transval(campo(5),12) rec=rec+transval(campo(3),12) rec=rec+transval(campo(7),12) rec=rec+transval(campo(8),12) rec=rec+transval(campo(9),12) rec=rec+transval(campo(10),12) rec=rec+transval(campo(62),12) rec=rec+replic(" ",35)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trana=_trana+1 _trdec=_trdec+1 _trfic=_trfic+1 * 11 Registo rec="11" rec=rec+"2" rec=rec+transval(campo(20),12) rec=rec+transval(campo(21),12) rec=rec+transval(campo(23),12) rec=rec+transval(campo(22),12) rec=rec+transval(campo(24),12) rec=rec+transval(campo(63),12) rec=rec+transval(campo(2),12) rec=rec+transval(campo(6),12) rec=rec+transval(campo(4),12) rec=rec+transval(campo(11),12) rec=rec+replic(" ",11)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trana=_trana+1 _trdec=_trdec+1 _trfic=_trfic+1 * 12 Registo rec="12" rec=rec+"2" rec=rec+transval(campo(64),12) rec=rec+"0" rec=rec+"0" rec=rec+transval(0,12) rec=rec+replic(" ",105)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trana=_trana+1 _trdec=_trdec+1 _trfic=_trfic+1 * 32 Registo (Novo a partor de 2010) Rec="32" rec=rec+"2" rec=rec+transval(campo(12),12) rec=rec+transval(campo(14),12) rec=rec+transval(campo(15),12) rec=rec+transval(campo(16),12) rec=rec+transval(campo(13),12) rec=rec+transval(campo(17),12) rec=rec+replic(" ",59)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 * 33 Registo (Novo a partir de 2010) Rec="33" rec=rec+"2" rec=rec+transval(campo(65),12) rec=rec+transval(campo(66),12) rec=rec+transval(campo(67),12) rec=rec+transval(campo(68),12) rec=rec+transval(campo(69),12) rec=rec+transval(campo(70),12) rec=rec+transval(campo(71),12) rec=rec+transval(campo(72),12) rec=rec+transval(campo(73),12) rec=rec+replic(" ",23)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 * 13 Registo rec="13" rec=rec+"2" rec=REC+TRANSF(_TRANA, "@L 999") rec=rec+transval(campo(62)+campo(63)+campo(64),13) rec=rec+replic(" ",115)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 wait clear Endif *-------------------------------------------------------------------------- ANEXO MADEIRA If _copm=1 Wait window "Aguarde apuramento do anexo para a madeira" nowait c020a1_f.prepanexomadeira Registo rec="09" rec=rec+"3" rec=rec+p_nif rec=rec+transf(p_anoproc, "@l 9999") if _cmensal=1 rec=rec+transf(month(_cperiods), "@l 99")+" " else rec=rec+transf(month(_cperiods), "@l 99")+"T" Endif rec=rec+replic(" ",115)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 *!* * 9 Registo ---- Repetido no ficheiro base *!* rec="09" *!* rec=rec+"3" *!* rec=rec+p_nif *!* rec=rec+transf(p_anoproc, "@l 9999") *!* *!* if _cmensal=1 *!* rec=rec+transf(month(_cperiods), "@l 99")+" " *!* else *!* rec=rec+transf(month(_cperiods), "@l 99")+"T" *!* Endif *!* rec=rec+replic(" ",115)+chr(13)+chr(10) *!* =FWRITE(FileHandle,rec) *!* _tranm=_tranm+1 *!* _trdec=_trdec+1 *!* _trfic=_trfic+1 * 10 Registo rec="10" rec=rec+"3" rec=rec+transval(campo(1),12) rec=rec+transval(campo(5),12) rec=rec+transval(campo(3),12) rec=rec+transval(campo(7),12) rec=rec+transval(campo(8),12) rec=rec+transval(campo(9),12) rec=rec+transval(campo(10),12) rec=rec+transval(campo(62),12) rec=rec+replic(" ",35)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _tranm=_tranm+1 _trdec=_trdec+1 _trfic=_trfic+1 * 11 Registo rec="11" rec=rec+"3" rec=rec+transval(campo(20),12) rec=rec+transval(campo(21),12) rec=rec+transval(campo(23),12) rec=rec+transval(campo(22),12) rec=rec+transval(campo(24),12) rec=rec+transval(campo(63),12) rec=rec+transval(campo(2),12) rec=rec+transval(campo(6),12) rec=rec+transval(campo(4),12) rec=rec+transval(campo(11),12) rec=rec+replic(" ",11)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _tranm=_tranm+1 _trdec=_trdec+1 _trfic=_trfic+1 * 12 Registo rec="12" rec=rec+"3" rec=rec+transval(campo(64),12) rec=rec+"0" rec=rec+"2" rec=rec+transval(0,12) rec=rec+replic(" ",105)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _tranm=_tranm+1 _trdec=_trdec+1 _trfic=_trfic+1 * 32 Registo (Novo a partor de 2010) Rec="32" rec=rec+"2" rec=rec+transval(campo(12),12) rec=rec+transval(campo(14),12) rec=rec+transval(campo(15),12) rec=rec+transval(campo(16),12) rec=rec+transval(campo(13),12) rec=rec+transval(campo(17),12) rec=rec+replic(" ",59)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 * 33 Registo (Novo a partir de 2010) Rec="33" rec=rec+"2" rec=rec+transval(campo(65),12) rec=rec+transval(campo(66),12) rec=rec+transval(campo(67),12) rec=rec+transval(campo(68),12) rec=rec+transval(campo(69),12) rec=rec+transval(campo(70),12) rec=rec+transval(campo(71),12) rec=rec+transval(campo(72),12) rec=rec+transval(campo(73),12) rec=rec+replic(" ",23)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _triva=_triva+1 _trdec=_trdec+1 _trfic=_trfic+1 * 13 Registo rec="13" rec=rec+"3" rec=REC+TRANSF(_TRANM, "@L 999") rec=rec+transval(campo(62)+campo(63)+campo(64),13) rec=rec+replic(" ",115)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 wait clear Endif *------------------------------------------------------------------- Anexo intracomunitarios If _cintrac=1 Wait window "Aguarde apuramento do anexo opera es intracomunitarias" nowait c020a1_f.preptransintra * 20 Registo rec="20" rec=rec+p_nif rec=rec+transf(p_anoproc, "@l 9999") if _cmensal=1 rec=rec+transf(month(_cperiods), "@l 99")+" " else rec=rec+transf(month(_cperiods), "@l 99")+"T" Endif rec=rec+replic(" ",116)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 select opintra * brow _nrreg=reccount() * 21 Registo tottrans=0 For i=1 to _nrreg rec="21" rec=rec+transf(i, "@l 99999") rec=rec+alltrim(opintra._prefixo) rec=rec+PADL(opintra._nif, 12, ' ') rec=rec+transval(round(opintra._valor,0),13,1) rec=rec+"1" tottrans=tottrans+round(opintra._valor,0) rec=rec+replic(" ",99)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _trani=_trani+1 skip Next i * 22 Registo rec="22" rec=rec+transf(_trani, "@l 99999") rec=rec+transval(tottrans,13,1) rec=rec+transval(0,13,1) rec=rec+replic(" ",101)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 Endif *------------------------------------------------------------------- Anexo Clientes IF _nrrelcli!=0 c020a1_f.veperiodo_anexo FOR nanexo=1 TO _nrrelcli c020a1_f.anexoclientes_prepare(nanexo) c020a1_f.anexoclientes_filecreate IF _nrrelcli = 5 EXIT ENDIF Next nanexo ENDIF *------------------------------------------------------------------- Anexo fornecedor IF _nrrelfor!=0 c020a1_f.veperiodo_anexo FOR nanexo=1 TO _nrrelfor c020a1_f.anexofornecedores_prepare(nanexo) c020a1_f.anexofornecedores_filecreate IF _nrrelfor = 5 EXIT ENDIF Next nanexo ENDIF *------------------------------------------------------------------- Anexo Regulariza IF _nrrelsuj!=0 c020a1_f.veperiodo_anexo FOR nanexo=1 TO _nrrelsuj c020a1_f.anexosujeitos_prepare(nanexo) c020a1_f.anexosujeitos_filecreate IF _nrrelsuj=5 EXIT endif Next nanexo ENDIF *------------------------------------------------------------------- Anexo do campo 40 _tranexo40=0 _tr61=0 _tr62=0 _tr63=0 _tr64=0 _tr65=0 _tr66=0 _tr67=0 _tr68=0 _tr96=0 STORE 0 TO base68_1, base68_2, base68_3, iva68_1, iva68_2, iva68_3 IF !EMPTY(campo(40)) AND MESSAGEBOX("Existem valores no campo 40, pretende gerar os registos do anexo",4+32,"")=6 thisform.prepanexo40 IF RECCOUNT("cs_anexo")!=0 GO top rec="60" rec=rec+alltrim(str(p_anoproc)) if _cmensal=1 rec=rec+transf(month(_cperiods), "@l 99")+" " else rec=rec+transf(month(_cperiods), "@l 99")+"T" Endif rec=rec+TRANSFORM(p_nif, "@l 999999999") rec=rec+replic(" ",116)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 DO WHILE !EOF() DO case CASE between(cs_anexo.camporeg,4001 , 4003) _tr61=_tr61+1 rec="61" rec=rec+TRANSFORM(_tr61, "@l 99999") DO case CASE cs_anexo.camporeg=4001 rec=rec+"01" CASE cs_anexo.camporeg=4002 rec=rec+"02" CASE cs_anexo.camporeg=4003 rec=rec+"04" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE between(cs_anexo.camporeg,4004 , 4007) _tr62=_tr62+1 rec="62" rec=rec+TRANSFORM(_tr62, "@l 99999") DO case CASE cs_anexo.camporeg=4004 rec=rec+"05" CASE cs_anexo.camporeg=4005 rec=rec+"06" CASE cs_anexo.camporeg=4006 rec=rec+"07" CASE cs_anexo.camporeg=4007 rec=rec+"08" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE between(cs_anexo.camporeg,4008 , 4011) _tr63=_tr63+1 rec="63" rec=rec+TRANSFORM(_tr63, "@l 99999") DO case CASE cs_anexo.camporeg=4008 rec=rec+"05" CASE cs_anexo.camporeg=4009 rec=rec+"06" CASE cs_anexo.camporeg=4010 rec=rec+"07" CASE cs_anexo.camporeg=4011 rec=rec+"08" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE between(cs_anexo.camporeg,4012 , 4015) _tr64=_tr64+1 rec="64" rec=rec+TRANSFORM(_tr64, "@l 99999") DO case CASE cs_anexo.camporeg=4012 rec=rec+"09" CASE cs_anexo.camporeg=4013 rec=rec+"10" CASE cs_anexo.camporeg=4014 rec=rec+"11" CASE cs_anexo.camporeg=4015 rec=rec+"12" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE between(cs_anexo.camporeg,4016 , 4019) _tr65=_tr65+1 rec="65" rec=rec+TRANSFORM(_tr65, "@l 99999") DO case CASE cs_anexo.camporeg=4016 rec=rec+"15" CASE cs_anexo.camporeg=4017 rec=rec+"16" CASE cs_anexo.camporeg=4018 rec=rec+"17" CASE cs_anexo.camporeg=4019 rec=rec+"18" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE cs_anexo.camporeg = 4020 _tr66=_tr66+1 rec="66" rec=rec+TRANSFORM(_tr66, "@l 99999") rec=rec+"14" rec=rec+transval(0,13) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",100)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE cs_anexo.camporeg = 4021 _tr67=_tr67+1 rec="67" rec=rec+TRANSFORM(_tr66, "@l 99999") rec=rec+"19" rec=rec+transval(0,13) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",100)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 CASE between(cs_anexo.camporeg,4022 , 4024) IF cs_anexo.camporeg=4022 base68_1=base68_1+cs_anexo.base iva68_1=iva68_1+cs_anexo.iva ENDIF IF cs_anexo.camporeg=4023 base68_2=base68_2+cs_anexo.base iva68_2=iva68_2+cs_anexo.iva ENDIF IF cs_anexo.camporeg=4024 base68_3=base68_3+cs_anexo.base iva68_3=iva68_3+cs_anexo.iva ENDIF ENDCASE skip LOOP ENDDO *---------- registo 68 rec="68" rec=rec+transval(base68_1,12) rec=rec+transval(iva68_1,12) rec=rec+transval(base68_2,12) rec=rec+transval(iva68_2,12) rec=rec+transval(base68_3,12) rec=rec+transval(iva68_3,12) rec=rec+transval(campo(40),12) rec=rec+replic(" ",48)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo40=_tranexo40+1 *---------- Trailer do anexo 40 rec="69" rec=rec+TRANSFORM(_tr61, "@l 99999") rec=rec+TRANSFORM(_tr62, "@l 99999") rec=rec+TRANSFORM(_tr63, "@l 99999") rec=rec+TRANSFORM(_tr64, "@l 99999") rec=rec+TRANSFORM(_tr65, "@l 99999") rec=rec+TRANSFORM(_tr66, "@l 99999") rec=rec+TRANSFORM(_tr67, "@l 99999") rec=rec+TRANSFORM(_tr68, "@l 99999") rec=rec+TRANSFORM(_tr96, "@l 99999") rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 ENDIF ENDIF *------------------------------------------------------------------- Anexo 41 _tranexo41=0 _tr81=0 _tr82=0 _tr83=0 _tr84=0 _tr85=0 _tr86=0 _tr87=0 STORE 0 TO base87_1, base87_2, iva87_1, iva87_2 IF !EMPTY(campo(41)) AND MESSAGEBOX("Existem valores no campo 41, pretende gerar os registos do anexo",4+32,"")=6 thisform.prepanexo41 IF RECCOUNT("cs_anexo")!=0 GO top rec="80" rec=rec+alltrim(str(p_anoproc)) if _cmensal=1 rec=rec+transf(month(_cperiods), "@l 99")+" " else rec=rec+transf(month(_cperiods), "@l 99")+"T" Endif rec=rec+TRANSFORM(p_nif, "@l 999999999") rec=rec+replic(" ",116)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 DO WHILE !EOF() DO case CASE between(cs_anexo.camporeg,4101 , 4103) _tr81=_tr81+1 rec="81" rec=rec+TRANSFORM(_tr81, "@l 99999") DO case CASE cs_anexo.camporeg=4101 rec=rec+"02" CASE cs_anexo.camporeg=4102 rec=rec+"03" CASE cs_anexo.camporeg=4103 rec=rec+"04" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 CASE between(cs_anexo.camporeg,4104 , 4107) _tr82=_tr82+1 rec="82" rec=rec+TRANSFORM(_tr82, "@l 99999") DO case CASE cs_anexo.camporeg=4104 rec=rec+"05" CASE cs_anexo.camporeg=4105 rec=rec+"06" CASE cs_anexo.camporeg=4106 rec=rec+"07" CASE cs_anexo.camporeg=4107 rec=rec+"08" ENDCASE rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 CASE cs_anexo.camporeg=4108 _tr83=_tr83+1 rec="83" rec=rec+TRANSFORM(_tr83, "@l 99999") rec=rec+"11" rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 CASE cs_anexo.camporeg=4109 _tr84=_tr84+1 rec="84" rec=rec+TRANSFORM(_tr84, "@l 99999") rec=rec+"13" rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",92)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 CASE cs_anexo.camporeg=4110 _tr85=_tr85+1 rec="85" rec=rec+TRANSFORM(_tr85, "@l 99999") rec=rec+"20" rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(0,13) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",91)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 CASE cs_anexo.camporeg=4111 _tr86=_tr86+1 rec="86" rec=rec+TRANSFORM(_tr86, "@l 99999") rec=rec+"21" rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999") rec=rec+transval(0,13) rec=rec+transval(cs_anexo.base,12) rec=rec+transval(cs_anexo.iva,12) rec=rec+replic(" ",79)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 CASE cs_anexo.camporeg=4112 or cs_anexo.camporeg=4113 IF cs_anexo.camporeg=4112 base87_1=base87_1+cs_anexo.base iva87_1=iva87_1+cs_anexo.iva ENDIF IF cs_anexo.camporeg=4113 base87_2=base87_2+cs_anexo.base iva87_2=iva87_2+cs_anexo.iva ENDIF ENDCASE SKIP LOOP ENDDO *---------- registo 87 rec="87" rec=rec+transval(base87_1,12) rec=rec+transval(iva87_1,12) rec=rec+transval(base87_2,12) rec=rec+transval(iva87_2,12) rec=rec+transval(campo(41),12) rec=rec+replic(" ",72)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 _tranexo41=_tranexo41+1 *---------- Trailer do anexo 41 rec="89" rec=rec+TRANSFORM(_tr81, "@l 99999") rec=rec+TRANSFORM(_tr82, "@l 99999") rec=rec+TRANSFORM(_tr83, "@l 99999") rec=rec+TRANSFORM(_tr84, "@l 99999") rec=rec+TRANSFORM(_tr85, "@l 99999") rec=rec+TRANSFORM(_tr86, "@l 99999") rec=rec+replic(" ",102)+chr(13)+chr(10) =FWRITE(FileHandle,rec) _trdec=_trdec+1 _trfic=_trfic+1 ENDIF ENDIF *------------------------------------------------------------------- Fim do ficheiro Registo rec="98" rec=rec+transf(_trdec, "@l 999999999") rec=rec+replic(" ",123)+chr(13)+chr(10) _trfic=_trfic+1 =FWRITE(FileHandle,rec) Registo rec="99" rec=rec+transf(_trfic, "@l 999999999") rec=rec+replic(" ",123)+chr(13)+chr(10) =FWRITE(FileHandle,rec) *-------------------------------- =fclose(filehandle) =Messagebox("Cria o do Ficheiro efectuada ..",0+64,"") ENDPROC PROCEDURE mes_sup_doze LPARAMETERS _id LOCAL lcret, lctrab lcret = "" lctrab = SUBSTR(_id, 6, 2) IF VAL(lctrab) > 12 lcret = STUFF(_id,6, 5, "12-31") lcret = _id ENDIF RETURN lcret ENDPROC PROCEDURE tipo LPARAMETERS _conta, _tipo LOCAL lctipo, lcret lctipo = UPPER(_tipo) lcret = "" lcret = iif(LEFT(_conta, 1) = "9", "A", "G") + IIF(lctipo = "I", "A", lctipo) RETURN lcret ENDPROC PROCEDURE nif_sem_pais LPARAMETERS _nif LOCAL lcnif, lcret IF EMPTY(_nif) * lcret = SPACE(16) lcret = "Desconhecido" lcnif = ALLTRIM(_nif) lcret = IIF(ISALPHA(LEFT(lcnif, 1)), ALLTRIM(SUBSTR(lcnif, 3)), ALLTRIM(lcnif)) ENDIF return lcret ENDPROC PROCEDURE get_pais_do_nif LPARAMETERS _nif LOCAL lcnif, lcret *lcret = "Desconhecido" lcret = "PT" IF !EMPTY(_nif) lcnif = ALLTRIM(_nif) IF UPPER(lcnif) = "DESCONHECIDO" lcret = "Desconhecido" ELSE IF ISALPHA(LEFT(lcnif, 1)) lcret = UPPER(SUBSTR(lcnif, 1, 2)) ENDIF ENDIF ENDIF RETURN lcret ENDPROC PROCEDURE prepanexo40 if _cmensal=1 _mes_i=MONTH(_cperiods) _mes_s=MONTH(_cperiods) _mes_i=MONTH(_cperiods)-2 _mes_s=MONTH(_cperiods) Endif *!* IF p_riva=1 *!* _MES=val(left(ThisForm.Cbmes.value,2)) *!* Periodo=val(left(ThisForm.Cbmes.value,2)) *!* _MES_S=_MES *!* _MES_I=_MES *!* ELSE *!* _MES_S=val(left(ThisForm.Cbtrimestre.value,1))*3 *!* _MES_I=(_MES_S-3)+1 *!* Periodo=val(left(ThisForm.Cbtrimestre.value,1)) *!* ENDIF *!* data_inf=CTOD('01'+'/'+str(_mes_i)+'/'+right(str(p_anoproc),2)) *!* data_sup=ldom(CTOD('01'+'/'+str(_mes_s)+'/'+right(str(p_anoproc),2))) *------------------------------------------------------------------------------------------------- *!* SET ENGINEBEHAVIOR 70 *!* SELECT 0 *!* USE ..\dados\contab\l00313 ALIAS lanca *!* SET ORDER TO key_3 *------------------------------------------------- SELECT LANCA SET ORDER TO KEY_3 LOCAL lnmes_ini, lnmes_fim, lntotal_base, lntotal_iva, lnanexo lnmes_ini = _mes_i lnmes_fim = _mes_s *WAIT WINDOW STR(_mes_i)+" "+STR(_mes_s) lnanexo = 40 lntotal_base = 0.00 lntotal_iva = 0.00 * lista dos nifs usados em cada documento SELECT l_mes as mes, ; l_dia as dia, ; l_diario as diario, ; l_docu as docu, ; l_camporeg as camporeg, ; l_nif as nif ; FROM lanca ; WHERE !EMPTY(l_nif) AND ; BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ; BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ; GROUP BY mes, dia, diario, docu, camporeg, nif ; INTO CURSOR cs_nifs * lista indicativa da posi o da conta 2434 em cada documento(D ou C) SELECT l_mes as mes, ; l_dia as dia, ; l_diario as diario, ; l_docu as docu, ; l_camporeg as camporeg, ; IIF(LEFT(l_contad, 4) = "2434", "D", "C") as conta_iva ; FROM lanca ; WHERE (LEFT(l_contad, 4) = "2434" OR LEFT(l_contac, 4) = "2434") AND ; BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ; BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ; GROUP BY mes, dia, diario, docu, camporeg ; INTO CURSOR cs_contaiva * lista composta dos documentos com o nif e a posi o da contade iva.(inclui os nif's vazios) SELECT a.l_mes as mes, ; a.l_dia as dia, ; a.l_diario as diario, ; a.l_docu as docu, ; a.l_camporeg as camporeg, ; c.conta_iva as conta_iva, ; IIF(ISNULL(b.nif), SPACE(16), PADL(b.nif, 16, " ")) as nif ; FROM lanca a LEFT OUTER JOIN cs_nifs b ON a.l_mes = b.mes AND a.l_dia = b.dia AND ; a.l_diario = b.diario AND a.l_docu = b.docu AND a.l_camporeg = b.camporeg ; LEFT OUTER JOIN cs_contaiva c ON a.l_mes = c.mes AND a.l_dia = c.dia AND ; a.l_diario = c.diario AND a.l_docu = c.docu AND a.l_camporeg = c.camporeg ; WHERE BETWEEN(a.l_mes, lnmes_ini, lnmes_fim) AND ; BETWEEN(a.l_camporeg, lnanexo*100, lnanexo*100+99) ; GROUP BY a.l_mes, a.l_dia, a.l_diario, a.l_docu, a.l_camporeg ; INTO CURSOR cs_docs SELECT cs_nifs SELECT cs_contaiva * Lista com valores de incidencia e iva SELECT a.camporeg as camporeg, ; VAL(a.nif) as nif, ; sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "N"), l_valor, 0.00)) as base, ; sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "S"), l_valor, 0.00)) as iva ; FROM cs_docs a, lanca b ; where a.mes = b.l_mes AND ; a.dia = b.l_dia AND ; a.diario = b.l_diario AND ; a.docu = b.l_docu AND ; a.camporeg = b.l_camporeg ; GROUP BY camporeg, nif ; into cursor cs_anexo SELECT cs_docs SELECT cs_anexo GO top CALCULATE sum(base), sum(iva) ALL TO lntotal_base, lntotal_iva GO top *BROWSE ENDPROC PROCEDURE prepanexo41 if _cmensal=1 _mes_i=MONTH(_cperiods) _mes_s=MONTH(_cperiods) _mes_i=MONTH(_cperiods)-2 _mes_s=MONTH(_cperiods) Endif *!* IF p_riva=1 *!* _MES=val(left(ThisForm.Cbmes.value,2)) *!* Periodo=val(left(ThisForm.Cbmes.value,2)) *!* _MES_S=_MES *!* _MES_I=_MES *!* ELSE *!* _MES_S=val(left(ThisForm.Cbtrimestre.value,1))*3 *!* _MES_I=(_MES_S-3)+1 *!* Periodo=val(left(ThisForm.Cbtrimestre.value,1)) *!* ENDIF *!* data_inf=CTOD('01'+'/'+str(_mes_i)+'/'+right(str(p_anoproc),2)) *!* data_sup=ldom(CTOD('01'+'/'+str(_mes_s)+'/'+right(str(p_anoproc),2))) *------------------------------------------------------------------------------------------------- *!* SET ENGINEBEHAVIOR 70 *!* SELECT 0 *!* USE ..\dados\contab\l00313 ALIAS lanca *!* SET ORDER TO key_3 *------------------------------------------------- SELECT LANCA SET ORDER TO KEY_3 LOCAL lnmes_ini, lnmes_fim, lntotal_base, lntotal_iva, lnanexo lnmes_ini = _mes_i lnmes_fim = _mes_s *WAIT WINDOW STR(_mes_i)+" "+STR(_mes_s) lnanexo = 41 lntotal_base = 0.00 lntotal_iva = 0.00 * lista dos nifs usados em cada documento SELECT l_mes as mes, ; l_dia as dia, ; l_diario as diario, ; l_docu as docu, ; l_camporeg as camporeg, ; l_nif as nif ; FROM lanca ; WHERE !EMPTY(l_nif) AND ; BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ; BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ; GROUP BY mes, dia, diario, docu, camporeg, nif ; INTO CURSOR cs_nifs * lista indicativa da posi o da conta 2434 em cada documento(D ou C) SELECT l_mes as mes, ; l_dia as dia, ; l_diario as diario, ; l_docu as docu, ; l_camporeg as camporeg, ; IIF(LEFT(l_contad, 4) = "2434", "D", "C") as conta_iva ; FROM lanca ; WHERE (LEFT(l_contad, 4) = "2434" OR LEFT(l_contac, 4) = "2434") AND ; BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ; BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ; GROUP BY mes, dia, diario, docu, camporeg ; INTO CURSOR cs_contaiva * lista composta dos documentos com o nif e a posi o da contade iva.(inclui os nif's vazios) SELECT a.l_mes as mes, ; a.l_dia as dia, ; a.l_diario as diario, ; a.l_docu as docu, ; a.l_camporeg as camporeg, ; c.conta_iva as conta_iva, ; IIF(ISNULL(b.nif), SPACE(16), PADL(b.nif, 16, " ")) as nif ; FROM lanca a LEFT OUTER JOIN cs_nifs b ON a.l_mes = b.mes AND a.l_dia = b.dia AND ; a.l_diario = b.diario AND a.l_docu = b.docu AND a.l_camporeg = b.camporeg ; LEFT OUTER JOIN cs_contaiva c ON a.l_mes = c.mes AND a.l_dia = c.dia AND ; a.l_diario = c.diario AND a.l_docu = c.docu AND a.l_camporeg = c.camporeg ; WHERE BETWEEN(a.l_mes, lnmes_ini, lnmes_fim) AND ; BETWEEN(a.l_camporeg, lnanexo*100, lnanexo*100+99) ; GROUP BY a.l_mes, a.l_dia, a.l_diario, a.l_docu, a.l_camporeg ; INTO CURSOR cs_docs SELECT cs_nifs SELECT cs_contaiva * Lista com valores de incidencia e iva SELECT a.camporeg as camporeg, ; VAL(a.nif) as nif, ; sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "N"), l_valor, 0.00)) as base, ; sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "S"), l_valor, 0.00)) as iva ; FROM cs_docs a, lanca b ; where a.mes = b.l_mes AND ; a.dia = b.l_dia AND ; a.diario = b.l_diario AND ; a.docu = b.l_docu AND ; a.camporeg = b.l_camporeg ; GROUP BY camporeg, nif ; into cursor cs_anexo SELECT cs_docs SELECT cs_anexo GO top CALCULATE sum(base), sum(iva) ALL TO lntotal_base, lntotal_iva GO top *BROWSE ENDPROC PROCEDURE get_conta_do_nif_c LPARAMETERS _nif lcret = "" IF xseek(ALLTRIM(_nif), "Customer_2", "key_1") lcret = PADR(ALLTRIM(Customer_2.conta), 16, " ") lcret = PADR("__C" + thisform.nif_sem_pais(nif), 16, " ") ENDIF RETURN lcret ENDPROC PROCEDURE get_conta_do_nif_f LPARAMETERS _nif lcret = "" IF xseek(ALLTRIM(_nif), "Supplier_2", "key_1") lcret = PADR(ALLTRIM(Supplier_2.conta), 16, " ") lcret = PADR("__F" + thisform.nif_sem_pais(nif), 16, " ") ENDIF RETURN lcret ENDPROC PROCEDURE Unload RELEASE _model ENDPROC PROCEDURE Init LPARAMETERS model PUBLIC _model _model=model this.top=-5000 ENDPROC PROCEDURE Activate *!* =Messagebox("Na altura da instala o desta vers o do programa a estrutura do ficheiro para a M3 aida n o tinha sido disponibilizada pela DGCI."+chr(13)+; *!* "Para mais informa es contacte o seu revendedor autorizado."+chr(13)+; *!* "Sendo a QUERYPRO como obvio, totalmente alheia a esta situa o tudo far para ter a rotina pronta em tempo til.",0+64,"") *!* thisform.release *!* return *--------------------------------------------------------- Do Case Case _model=1 _curdir=Set('DEFAULT') + Sys(2003) Thisform.cxdial.DialogTitle = "Cria o da Modelo 3 e anexos em suporte inform tico" Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT" Thisform.cxdial.showsave _m3filename=Thisform.cxdial.filename If ! P_CANCELA Cd &_curdir Thisform.Refresh Else *or lastkey()=27 or empty(_m22filename) P_CANCELA=.F. Cd &_curdir Thisform.Refresh Thisform.Release Return Endif Thisform.filecreate Thisform.Release Return Case _model=2 _curdir=Set('DEFAULT') + Sys(2003) Thisform.cxdial.DialogTitle = "Cria o do Modelo 22 em suporte inform tico" Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT" thisform.cxdial.filename="M22-"+ALLTRIM(STR(p_anoproc))+"-"+alltrim(p_codemp)+".txt" Thisform.cxdial.showsave _m22filename=Thisform.cxdial.filename If ! P_CANCELA Cd &_curdir Thisform.Refresh Else *or lastkey()=27 or empty(_m22filename) P_CANCELA=.F. Cd &_curdir Thisform.Refresh Thisform.Release Return Endif Thisform.filecreate1 Thisform.Release Return Case _model=3 _curdir=Set('DEFAULT') + Sys(2003) Thisform.cxdial.DialogTitle = "Gera o do Ficheiro de Auditoria v.1.02_01 (build 002)" Thisform.cxdial.Filter="Ficheiros XML:(*.XML)|*.XML" Thisform.cxdial.FILENAME="SAFT_PT_"+p_nif+"_"+ALLTRIM(STR(p_anoproc))+".xml" Thisform.cxdial.showsave _saftfilename=Thisform.cxdial.filename If ! P_CANCELA Cd &_curdir Thisform.Refresh Else P_CANCELA=.F. Cd &_curdir Thisform.release Return Endif Thisform.SaftFilecreate(_saftfilename) Thisform.release return CASE _MODEL=4 _curdir=Set('DEFAULT') + Sys(2003) Thisform.cxdial.DialogTitle = "Gera o do Ficheiro Declara o Periodica do Iva " Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT" _pi=TRANSFORM(MONTH(_cperiodi), "@l 99") _ps=TRANSFORM(MONTH(_cperiods), "@l 99") DO CASE CASE _pi=_ps Thisform.cxdial.FILENAME="DecIva_"+p_codemp+"_"+ALLTRIM(STR(p_anoproc))+"_"+_pi+".TXT" OTHERWISE Thisform.cxdial.FILENAME="DecIva_"+p_codemp+"_"+ALLTRIM(STR(p_anoproc))+"_"+_pi+"_"+_ps+".TXT" endcase Thisform.cxdial.showsave _ivafilename=Thisform.cxdial.filename If ! P_CANCELA Cd &_curdir Thisform.Refresh Else P_CANCELA=.F. Cd &_curdir Thisform.release Return Endif Thisform.decivafilecreate(_ivafilename) Thisform.release return CASE _model=5 _curdir=Set('DEFAULT') + Sys(2003) Thisform.cxdial.DialogTitle = "Gera o do Ficheiro Declara o Recapitulativa " Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT" Thisform.cxdial.FILENAME="DecRecap"+p_nif+"_"+ALLTRIM(STR(p_anoproc))+".TXT" Thisform.cxdial.showsave _decrecapfilename=Thisform.cxdial.filename If ! P_CANCELA Cd &_curdir Thisform.Refresh Else P_CANCELA=.F. Cd &_curdir Thisform.release Return Endif Thisform.decrecapfilecreate(_decrecapfilename) Thisform.release return Endcase ENDPROC 001ASCII08CCCC$iZ CCC$H @l 99_ CCC$% @l 99_ Mod.03 @L 9999_ @L 9999_ @l 999999999_ @L 999_ @l 999999999_ @L 999_ @L 99_ @L 99_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9_ @L 99_ @l 9999_ @l 99_ @l 99_ @l 999_ @l 999999999999999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999_ @L 999_ @L 999999999999999999999_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @l 999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ 000000000 000000000 000000000 000000000 000000000 000000000 000000000 000000000 000000000 000000000 000000000 000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 @L 999_ 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 @L 999_ 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 000000000000000 @l 99999999_ @l 99999999_ @l 99999999_ @l 99999999_ @l 99999999_ @l 99999999_ @l 99999999_ @l 99999999_ 000000000000 000000000 000000000000 @L 9_ @L 9_ @L 9_ @L 9_ @L 999_ @L 999999999_ @L 999_ @l 999_ 000000000000000 @l 999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 999999999_ @L 999999999_ @L 9999_ @L 99999_ @L 99999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 9999_ @L 9999_ @L 9999_ @L 9999_ @L 9999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 99_ @L 99_ @L 999999999_ @L 999999999_ @l 9999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 999999999_ @L 999999999_ @L 9999_ @L 99999_ @L 99999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 9999_ @L 9999_ @L 9999_ @L 9999_ @L 9999_ @L 9999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 999999999_ @L 99_ @L 9999_ @L 99_ @L 99_ @L 999999999_ @L 999999999_ @L 999999999_ @l 9999_ @l 9999_ @l 9999_ o do Ficheiro efectuada .. _TRM3 _TRDEC _TRFIC _TRAA _TRAB _TRAC LNIND _M3FILENAME FILEHANDLE TRANSVAL LNIND_OCUR LNTOT_INHAS LNTOT_LINHAS 001ASCII17CCCC$iZ CCC$H @l 99_ CCC$% @l 99_ 002Mod.22 @l 99_ @l 99_ @l 99_ @l 99_ 0000000 1000000 0300000 0040000 0005000 0000600 0000070 0000008 @l 999999999_ @l 9999_ @l 99_ @l 99_ 00000 @l 9999_ @l 99_ @l 99_ @l 9999_ @l 99_ @l 99_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @L 9_ @l 99.9_ @l 9999_ @l 99_ @l 99_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999_ @l 999999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 999_ @l 9999_ @l 999_ @l 999_6 @l 999_6 @l 9999_ @l 99_ @l 99_ @l 99999_ @l 999_6 @l 99999_ @l 99_ @l 999999999_ 000000000000000000000000000000 @l 9999_ @l 9999_ @l 999_6 @l 999_6 @l 999999_ 00001 @l 999_ 00002 @l 999_ @l 9999_ @l 99_ @l 99_ @l 999999_ @l 9999999_ @l 9999999_ o do Ficheiro efectuada .. _TRM22 _TRANA _TRANC _TRAND _TRDEC _TRFIC _TRANE _M22FILENAME FILEHANDLE _PNIPC _PPERI _PPERS _PEXERC _PCODREP _PTIPOS _PREGIMIRC _PNIPCSD _PTAXAOPC _PSITUA _PTIPODEC _PDATASUBST _PDESCESP _PDECINI _PDATACES _PDATATRANS _PANEXOA _PANEXOB _PANEXOC _PANEXOD _PNIFLEGAL _PNIFTOC _PPME _PTRANSF _PANEXOE TRANSVAL T_Q12 T_REG17 T_REG18 T_REG19 T_REG20 CTLINHA O ficheiro indicado j existeC Deseja sobrepor? o do ficheiro em curso, Aguarde ... ?xml version="1.0" encoding="windows-1252"? AuditFile xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.02_01" empresa key_1 o do ficheiro em curso (Header), Aguarde ... Header AuditFileVersion 1.02_01 CompanyIDCC TaxRegistrationNumber TaxAccountingBasis CompanyNameCC CompanyAddress AddressDetailCC CityCC PostalCodeCCC Country CompanyAddress FiscalYearC @l 9999_ StartDateC @l 9999_ -01-01 EndDateC @l 9999_ -12-31 CurrencyCode DateCreatedCCC$i @l 9999_ CCC$H @l 99_ CCC$% @l 99_ TaxEntity ProductCompanyTaxID 504899147 SoftwareCertificateNumber ProductID QP Contabilidade/QUERYPRO ProductVersionC TelephoneC EmailC Header MasterFiles o do ficheiro em curso (General Ledger), Aguarde ... plano GeneralLedger GeneralLedger cs_erro_01 frmerro01 GeneralLedger AccountIDC AccountDescriptionCC OpeningDebitBalanceC @l 999999999999.99_ OpeningCreditBalanceC @l 999999999999.99_ ClosingDebitBalanceC @l 999999999999.99_ ClosingCreditBalanceC @l 999999999999.99_ GroupingCategory GroupingCodeC GeneralLedger o do ficheiro em curso (Customer), Aguarde ... plano Desconhecido Desconhecido Desconhecido Customer plano Customer_2 Customer DESCONHECIDO cs_erro_02 frmerro02 Clientes lanca plano cs_nifs_caixa Customer (Nome nao fornecido) Desconhecido Desconhecido Desconhecido Customer CustomerIDC AccountIDCC Desconhecido CustomerTaxIDC CompanyNameCC BillingAddress AddressDetailCC CityCC PostalCodeCC CountryCC BillingAddress TelephoneC EmailC SelfBillingIndicator Customer o do ficheiro em curso (Supplier), Aguarde ... plano Desconhecido Desconhecido Desconhecido Supplier plano Supplier_2 Supplier DESCONHECIDO cs_erro_02 frmerro02 Fornecedores lanca plano cs_nifs_caixa Supplier (Nome nao fornecido) Desconhecido Desconhecido Desconhecido Supplier SupplierIDC AccountIDCC Desconhecido SupplierTaxIDC CompanyNameCC BillingAddress AddressDetailCC CityCC PostalCodeCC CountryCC BillingAddress TelephoneC EmailC SelfBillingIndicator Supplier TAXASIVA TaxTable TaxTableEntry TaxType TaxCountryRegion TaxCode Description Taxa Reduzida TaxPercentageC @l 999.99_ TaxTableEntry TaxTableEntry TaxType TaxCountryRegion TaxCode Description Taxa Intermedia TaxPercentageC @l 999.99_ TaxTableEntry TaxTableEntry TaxType TaxCountryRegion TaxCode Description Taxa Normal TaxPercentageC @l 999.99_ TaxTableEntry TaxTableEntry TaxType TaxCountryRegion TaxCode Description Isenta TaxPercentage 000.00 TaxTableEntry TaxTable MasterFiles o do ficheiro em curso (General Ledger Entries), Aguarde ... lanca cs_total lanca @L 9999_ @L 9999_ @L 99_ @L 99_ @L 99_ @L 999999_ lanca @L 9999_ @L 9999_ @L 99_ @L 99_ @L 99_ @L 999999_ cs_linhas cs_linhas 6 6 cs_documento_com_terceiro_recapitul cs_linhasQ planoQ 6 6 cs_documento_com_terceiro_nresid cs_documento_com_terceiro_nresid cs_documento_com_terceiro_recapitul cs_documento_com_terceiro cs_linhasQ cs_documento_com_terceiroQ @L 99_ @L 9999_ 12-31 @L 99_ @L 99_ cs_documento cs_linhasQ diarioQ cs_diarios GeneralLedgerEntries NumberOfEntriesCC TotalDebitC @L 99999999999.99_ TotalCreditC @L 99999999999.99_ Journal JournalIDC @L 99_ DescriptionCC Transaction Doc. contabilistico CC , mes , diario TransactionID Period TransactionDate SourceIDC Description DocArchivalNumberC @L 999999_ TransactionType T00:00:00 @L 9999_ @L 99_ @L 99_ @L 99_ @L 99_ @L 99_ GLPostingDate CustomerIDC SupplierIDC RecordID AccountIDC T00:00:00 @L 9999_ @L 99_ @L 99_ @L 99_ @L 99_ @L 99_ SystemEntryDate DescriptionCC Desconhecido CreditAmountC @L 9999999999.99_ DebitAmountC @L 9999999999.99_ Transaction Journal GeneralLedgerEntries AuditFile Grava o concluida. _SAFTFILENAME LCXML LCTRAB LNTOT_DOCS LNTOTAL_DEB LNTOTAL_CRD LCTRANSACTION_TYPE LCDESC_FIRST LCDESC_LAST LCDESC_FINAL LCDESC_DOC LCNIF_SEM_PAIS LNMES_INICIO_CONTAB EMPRESA INICON OPENTAG XSEEK P_CODEMP OPENCLOSETAG MATRICULA THISFORM LIMPA_CHAR FIRMA MORADA NUMERO ANDAR LOCALIDADE CPOSTAL CLOSETAG P_ANOPROC P_VERSAO EMAIL CONTA ACCOUNTID ACCOUNTDESCRIPTION OPENINGDEBITBALANCE OPENINGCREDITBALANCE CLOSINGDEBITBALANCE CLOSINGCREDITBALANCE CATEGORIATIPO CONTA_GS GRAUSUPERIOR PLANO GENERALLEDGER CS_ERRO_01 FRMERRO01 CUSTOMERID NIF_SEM_PAIS CUSTOMERTAXID COMPANYNAME ADDRESSDETAIL LOCAL CODPOS POSTALCODE GET_PAIS_DO_NIF COUNTRY SEM_CONTA CUSTOMER CUSTOMER_2 KEY_1 CONTAID CS_ERRO_02 P_CONTASSEMNIF FRMERRO02 L_NIF LANCA L_TMAPAR CS_NIFS_CAIXA SUPPLIERID SUPPLIERTAXID SUPPLIER SUPPLIER_2 PTAXA_RED PTAXA_NOR PTAXA_INT SET_PARMS L_CONTAD L_VALOR G_DEBITO L_CONTAC G_CREDITO L_MES CS_TOTAL LNTOT_DEB LNTOT_CRD L_LINHA RECORDID L_DIA L_DIARIO L_DOCU TRANSACTIONID L_MAPAR ACCOUNDID L_DATAHORA SYSTEMENTRYDATE L_DESC DESCRIPTION REGULARIZ DEBITAMOUNT CREDITAMOUNT CS_LINHAS GET_CONTA_DO_NIF_C CLIENTE GET_CONTA_DO_NIF_F FORNECEDOR# CS_DOCUMENTO_COM_TERCEIRO_RECAPITUL CS_DOCUMENTO_COM_TERCEIRO_NRESID CS_DOCUMENTO_COM_TERCEIRO PERIOD TRANSACTIONDATE GLPOSTINGDATE CS_DOCUMENTO CODIGO DESCRICAO DIARIO CS_DIARIOS P_LOGIN _STRING LCSTRING LCRET LNOPC 0123456789 _STRING LCRET LCSTRING LNIND LCTRAB LNPOS 01ASCII01CCCC$iZ CCC$H @l 99_ CCC$% @l 99_ 02DRECA @l 9999_ @l 99999_ @l 99999_ @l 999999999_ @l 999999999_ @l 999999999_ o do Ficheiro efectuada .. _DECRECAPFILENAME _TRFIC _TRDEC _TRREC FILEHANDLE P_NIF P_ANOPROC _MENSAL _TRIMESTRAL _MESINCINF _MESINCSUP OPINTRA INSREC _PREFIXO TRANSVAL _VALOR _TIPOOPER _PNIFTOC _TOT1 _TOT2 _TOT3 _TOT4 01ASCII04CCCC$iZ CCC$H @l 99_ CCC$% @l 99_ 02DPIVA @l 99_ @l 99_ 00000000 00000000 @l 999_ @L 999999999_ Aguarde apuramento do anexo para os a @l 9999_ @l 99_ @l 99_ @L 999_ Aguarde apuramento do anexo para a madeira @l 9999_ @l 99_ @l 99_ @L 999_ Aguarde apuramento do anexo opera es intracomunitarias @l 9999_ @l 99_ @l 99_ @l 99999_ @l 99999_ Existem valores no campo 40, pretende gerar os registos do anexo cs_anexoN @l 99_ @l 99_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ Existem valores no campo 41, pretende gerar os registos do anexo cs_anexoN @l 99_ @l 99_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 999999999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 99999_ @l 999999999_ @l 999999999_ o do Ficheiro efectuada .. _TRIVA _TRDEC _TRFIC _TRANC _TRANA _TRANM _TRANI _TRANF _IVAFILENAME FILEHANDLE P_NIF _CPRAZO _COPC _COPA _COPM _CANEXOC _CANEXOA _CANEXOM _COPIMOB _CINTRAC _NRRELCLI _NRRELFOR _NRRELSUJ _CNAOOP P_ANOPROC _CMENSAL _CPERIODS TRANSVAL CAMPO _CINVERT _PNIFTOC C020A1_F PREPANEXOACORES PREPANEXOMADEIRA PREPTRANSINTRA OPINTRA _NRREG TOTTRANS _PREFIXO _VALOR VEPERIODO_ANEXO NANEXO ANEXOCLIENTES_PREPARE ANEXOCLIENTES_FILECREATE ANEXOFORNECEDORES_PREPARE ANEXOFORNECEDORES_FILECREATE ANEXOSUJEITOS_PREPARE ANEXOSUJEITOS_FILECREATE _TRANEXO40 _TR61 _TR62 _TR63 _TR64 _TR65 _TR66 _TR67 _TR68 _TR96 BASE68_1 BASE68_2 BASE68_3 IVA68_1 IVA68_2 IVA68_3 THISFORM PREPANEXO40 CS_ANEXO CAMPOREG _TRANEXO41 _TR81 _TR82 _TR83 _TR84 _TR85 _TR86 _TR87 BASE87_1 BASE87_2 IVA87_1 IVA87_2 PREPANEXO41 12-31[ LCRET LCTRAB} _CONTA _TIPO LCTIPO LCRET Desconhecido LCNIF LCRET DESCONHECIDO Desconhecido LCNIF LCRETa KEY_3 lanca cs_nifs lanca cs_contaiva lancaQ cs_nifsQ cs_contaivaQ cs_docs cs_docsQ lancaQ cs_anexo _CMENSAL _MES_I _CPERIODS _MES_S LANCA KEY_3 LNMES_INI LNMES_FIM LNTOTAL_BASE LNTOTAL_IVA LNANEXO L_MES L_DIA L_DIARIO DIARIO L_DOCU L_CAMPOREG CAMPOREG L_NIF CS_NIFS L_CONTAD CONTA_IVA L_CONTAC CS_CONTAIVA CS_DOCS POS_IVA L_VALOR CS_ANEXOa KEY_3 lanca cs_nifs lanca cs_contaiva lancaQ cs_nifsQ cs_contaivaQ cs_docs cs_docsQ lancaQ cs_anexo _CMENSAL _MES_I _CPERIODS _MES_S LANCA KEY_3 LNMES_INI LNMES_FIM LNTOTAL_BASE LNTOTAL_IVA LNANEXO L_MES L_DIA L_DIARIO DIARIO L_DOCU L_CAMPOREG CAMPOREG L_NIF CS_NIFS L_CONTAD CONTA_IVA L_CONTAC CS_CONTAIVA CS_DOCS POS_IVA L_VALOR CS_ANEXO Customer_2 key_1 LCRET XSEEK CUSTOMER_2 CONTA THISFORM NIF_SEM_PAIS Supplier_2 key_1 LCRET XSEEK SUPPLIER_2 CONTA THISFORM NIF_SEM_PAIS _MODEL/ MODEL _MODEL DEFAULTvC o da Modelo 3 e anexos em suporte inform Ficheiros ASCII:(*.TXT)|*.TXT Cd &_curdir Cd &_curdir DEFAULTvC o do Modelo 22 em suporte inform Ficheiros ASCII:(*.TXT)|*.TXT M22-CC Cd &_curdir Cd &_curdir DEFAULTvC o do Ficheiro de Auditoria v.1.02_01 (build 002) Ficheiros XML:(*.XML)|*.XML SAFT_PT_ Cd &_curdir Cd &_curdir DEFAULTvC o do Ficheiro Declara o Periodica do Iva Ficheiros ASCII:(*.TXT)|*.TXT @l 99_ @l 99_ DecIva_ DecIva_ Cd &_curdir Cd &_curdir DEFAULTvC o do Ficheiro Declara o Recapitulativa Ficheiros ASCII:(*.TXT)|*.TXT DecRecap Cd &_curdir Cd &_curdir _MODEL _CURDIR THISFORM CXDIAL DIALOGTITLE FILTER SHOWSAVE _M3FILENAME FILENAME P_CANCELA REFRESH RELEASE FILECREATE P_ANOPROC P_CODEMP _M22FILENAME FILECREATE1 P_NIF _SAFTFILENAME SAFTFILECREATE _CPERIODI _CPERIODS _IVAFILENAME DECIVAFILECREATE _DECRECAPFILENAME DECRECAPFILECREATE filecreate, filecreate1 saftfilecreate limpa_char concatenar decrecapfilecreate decivafilecreate mes_sup_doze tipo/ nif_sem_pais get_pais_do_nifr prepanexo40M prepanexo41 get_conta_do_nif_c get_conta_do_nif_f] Unload9 InitO Activate *filecreate *filecreate1 *saftfilecreate *limpa_char *concatenar *decrecapfilecreate *decivafilecreate *mes_sup_doze *tipo *nif_sem_pais *get_pais_do_nif *prepanexo40 *prepanexo41 *get_conta_do_nif_c *get_conta_do_nif_f olecontrol olecontrol cxdial FORM1 ATop = 12 Left = 12 Height = 100 Width = 100 Name = "cxdial" 28C4C820-401A-101B-A3C9-08002B2F49FB CancelError .OLEObject = C:\Windows\SysWow64\COMDLG32.OCX !Arial, 0, 9, 5, 15, 12, 32, 3, 0 PLANO _CONTA _SALDO PLANO plano.DC acudeb=acudeb+&campo _MESINF _MESSUP ACUDEB CAMPO plano.CC acucrd=acucrd+&campo _MESINF _MESSUP ACUCRD CAMPO _CHAVER _OCUR _OCCUR CICLO key_1 PVALOR PCRITERIO ACTUALALIAS NRCENTROS PARCIAL DIFER CRITERIO KEY_1 CHAVER ARREPART _POS1 P_MOEDA_ _OCCURS _EXTSALDO KEY_1 @L 99_ DEB_ACU=DEB_ACU+&VARDMES _CONTA DEB_ACU _OLD_ALIAS PLANO KEY_1 VARDMES KEY_1 @L 99_ CRD_ACU=CRD_ACU+&VARCMES _CONTA _OLD_ALIAS CRD_ACU PLANO KEY_1 VARCMESK P_INIMES P_ANOPROCE plano. @L 99_ VVALE plano. @L 99_ VVALu ULMES_OLDALIAS ULMES_OLDORDER EXERC ULMESCONTa ULMES_OLDALIAS RDIARIO ULDIAR_OLDALIAS ULDIAR_OLDORDER EXERC ULDIARCONT @L 99_ @L 99_ @L 99_ @L 99_ @L 99_ @L 99_ plano1 KEY_1 plano2 KEY_1 KEY_1 SELECT &OLD_AREA _VALOR=&DEBMES _VALOR=&CREMES _VALOR=&DEBMES-&CREMES _VALOR=&DEBACU _VALOR=&CREACU _VALOR=(&DEBACU)-(&CREACU) _VALOR=IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00) _VALOR=IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00) _VALOR=_VALOR+&DEBMES _VALOR=_VALOR+&CREMES _VALOR=_VALOR+&DEBMES-&CREMES _VALOR=_VALOR+&DEBACU _VALOR=_VALOR+&CREACU _VALOR=_VALOR+((&DEBACU)-(&CREACU)) _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00) _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00) _VALOR=_VALOR+&DEBMES _VALOR=_VALOR+&CREMES _VALOR=_VALOR+&DEBMES-&CREMES _VALOR=_VALOR+&DEBACU _VALOR=_VALOR+&CREACU _VALOR=_VALOR+((&DEBACU)-(&CREACU)) _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00) _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00) _VALOR=_VALOR+&DEBMES _VALOR=_VALOR+&CREMES _VALOR=_VALOR+&DEBMES-&CREMES _VALOR=_VALOR+&DEBACU _VALOR=_VALOR+&CREACU _VALOR=_VALOR+((&DEBACU)-(&CREACU)) _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00) _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00) SELECT &OLD_AREA _CONTA _OPTION _VALOR DEBACU CREACU DEBMES CREMES SALMES SALACU OLD_AREA CONTA_I CONTA_S ABRE_N1_N2 PLANO1 KEY_1 PLANO2 PLANO CONTA SOMA: error _resultado=-1 on error &_oldonerror P_FORMULA _OLDAREA _MODEL _PAGMODEL MAPAS MODELO PAGINA RESULT SOMAR _RESULTADO _CHKSTRING _STRINGV CHK_VAL _OLDONERROR KEY_1 _OLD_REC MAPAS KEY_1 NUMERO VALOR plano1 plano2 \contab\ \contab\ IF ! FILE('&P_ANO_ANTER') USE &P_ANO_ANTER ALIAS PLANO1 IF ! FILE('&P_ANO_ANTER1') USE &P_ANO_ANTER1 ALIAS PLANO2 P_ANO_ANTER ANO_ANTER P_ANO_ANTER1 ANO_ANTER1 P_ANOPROC P_PATH P_CODEMP _OCOR P_FORMULA RESULT _FORM SOMA_AUX _FORM _QUADRO _PAGINA _POSVIRG _POSP1 _POSP2 _POSINF _POSSUP MAPAS PAGINA RESULT _MODEL _PAGMODEL LANCA _TRCONTA _MESI _DIAI VELHOALIAS ACUMDEB ACUMCRD SALDOACU CHK_VAL _CONTA L_CONTAD L_VALOR L_CONTAC LANCA L_MES L_DIA SALDO SALDOACU key_1 _PCONTA ANTALIAS PLANO KEY_1 plano key_1 _CONTA LCCONTA LCRES XSEEK PLANO KEY_1 _PRESENTALIAS MAPAS KEY_1 CARACTER NUMERO TEXTO LARG_TEXTO VALOR KEY_1 _PRESENTALIAS MAPAS KEY_1 TITULO~ LCRET LDVALOR KEY_1 _POS _CONTEUDO MAPAS KEY_1 CARACTER NUMERO TEXTO VALOR DATAT _ANO _CONTEUDO LBRETORNO: Faltam parametros p/ executar a fun o 'INCLUDE_YEARS' Erro de programa Datas ou contas incorrectas na fun o 'INCLUDE_YEARS' Erro de programa select *, as l_ano from where l_mes <> 0 and (between(l_contad, lccontaini, lccontafim) or between(l_contac, lccontaini, lccontafim)) order by 15, 1, 2 into cursor csint_mov do INCLUDE_YEARS_aux_err with error(), lcfile, lcalias \contab\L qpfileC do errodesc in \projectos\gdg2000\shared\prg\erros with error(), message( ), message(1), program( ), lineno( ) qpfileC union all &sqlselect qpfileC select l_mes as l_mes, l_dia as l_dia, l_diario as l_diario, l_docu as l_docu, l_linha as l_linha, l_contad as l_conta, l_desc as l_desc, l_valor as l_valor, "D" as l_dc, l_mapar as l_mapar, l_tmapar as l_tmapar, l_nif as l_nif, l_ano as l_ano from csint_mov where include_years_aux(l_dia, l_mes, l_ano, lddataini, lddatafim) and between(l_contad, lccontaini, lccontafim) union all select l_mes as l_mes, l_dia as l_dia, l_diario as l_diario, l_docu as l_docu, l_linha as l_linha, l_contac as l_conta, l_desc as l_desc, l_valor as l_valor, "C" as l_dc, l_mapar as l_mapar, l_tmapar as l_tmapar, l_nif as l_nif, l_ano as l_ano from csint_mov where include_years_aux(l_dia, l_mes, l_ano, lddataini, lddatafim) and between(l_contac, lccontaini, lccontafim) order by 6, 12, 1, 2 into cursor &lccursor_final _DATAINI _DATAFIM _CONTAINI _CONTAFIM _CURSOR PRVUSE LDDATAINI LDDATAFIM LBRETORNO LAANOS LNTOTANOS LNIND LNCONT LCCONTAINI LCCONTAFIM LCFILE LCALIAS LCCURSOR_FINAL SQLWHERE SQLFIXO1 SQLFIXO2 SQLFIXO3 SQLSELECT P_PATH P_CODEMP CSINT_MOVy _DATAINI _DATAFIM LBRETORNO9 _ERRO _FILE _ALIAS _DESC LCDOC4 _DESC _ANOREF LCPRAZO LNPRAZO LDVENCIMENTO LCDATADOC LDDOC2 FUNCAO FUNCAO_1 Verificando dados da aplica o de Gest o de Pessoal... pessoa\ funci movim estab proce comuns\sconce.dbf clfuncionarios clmovimentos clestabelecimentos clprocessamentos clconcelhos Obtendo informa o de Gest o de Pessoal... clfuncionariosQ clmovimentosQ clestabelecimentosQ clprocessamentosQ clconcelhosQ LCPATH LCFILE_FUNC LCFILE_MOVI LCFILE_CONCE LCFILE_ESTA LCFILE_PROC LCCURSOR LCOUTCURSOR MENSAGEM PATHDADOS ENTIDADE LCFILE_CONC CLFUNCIONARIOS CLMOVIMENTOS CLESTABELECIMENTOS CLPROCESSAMENTOS CLCONCELHOS XDISTR XCONCE C_CONCELHO VALOR XFUNC XESTAB XPROC XABONO DATA EXERCICIO COD_DGCI OBJ_CODIGO OBJ_CONCELHO OBJ_VALOR NRLINHAS NCURSOR ESTADOD FUNCAO ESTADO NCURSOR _VALTOTRANSF _SIGN TEMPFIELD DEFFIELD _VALTOTRANSF _SIGN TEMPFIELD DEFFIELD key_1 CONTAD CONTAC LANCANIF _VELHOAL PLANO KEY_1 _LINHA^ plano key_1 pariva key_1 plano key_1 plano key_1 pariva key_1 _CONTA W_CONTA WCONTA PLANO PARIVA CAMPO CONTA_IVA CONTA @R 9999999999.99_6 @R 9999999999.99_6 _MODELO _QUADRO LCMODELO LCQUADRO LNRET LCTRAB MAPAS MODELO QUADRO LCVALOR CARACTER NUMERO TEXTO LARG_TEXTO VALOR DATA _INDEX paises key_3 _PREFIXO AREA_ACTUAL PDESC PAISES8 key_1 REPLACE WITH + _valor &lccommand Verifique a consist ncia do Plano - Faltam contasC Contas n o ficaram actualizadas! _CONTA _SOMSUB _VALOR LCDEBVAR LCCOMMAND LCOLD_ALIAS PLANO KEY_1 CONTA_GS plano cs_get_gs _CONTA LCRET CONTA PLANO TIPO CS_GET_GS _POSICAO _CONTAD _CONTAC LBRET LCCONTA Temmov, SALDO ACDEB ACCRDI vchaver repartD D_ACUZ C_ACU exercicio cmesw ulmes uldiar CHK_VAL4 calcform abre_n1_n2 SOMARb& SOMA_AUX\' transporte{) inisaldo ctexist CONTADESCz, EDDATA EXISTE_ANO_MEMO{3 INCLUDE_YEARS INCLUDE_YEARS_aux4> INCLUDE_YEARS_aux_err READ_DOC5? READ_DATA EXECUTAR FUNCAO_1 DESTROY transval transval1 plano_nif resetlinha para tentar de novo ou para desistir. __MODE MEMOWIDTHv MEMOWIDTHv _MEMO _LINHA _WIDTH _OFFSET _PARAMETERS OLD_WIDTH _CONTEUDO ESCAPEv SET ESCAPE &SET_ESCAPE TECLA SET_ESCAPE. Error number: CC Error message: Line of code with error: Line number of error: CC Program with error: MERROR MESS1 MPROG MLINENO ERRON _JANELA PROCS & FUNCS EXECUTADOS ATE AO MOMENTO _NIVEL SHOW_PATH SRC;PRG Selecione o ficheiro a analizar: Abrir PRINT AGUARDE UM MOMENTO... APPEND FROM &_FILE TYPE SDF PROCS.TXT Analizando o ficheiro: FUNCTION PROCEDURE STATIC FUNCTION STATIC PROCEDURE Foi criado/actualizado o ficheiro PROCS.TXT Ficheiro nao encontrado: _FILE _VERBOSE _STAT OLD_PRINT PROCS EOF() Deseja deseja interromper a operacao ? Prima ESC para interromperC (CCCN SHOW_IT STOP_IT L_ON_G SIM_NAOZ _VALUE _MASK Inicializando o atalho... &PROC Finalizando o atalho... _NFICS PUSH_ALL POP_ALLF _TIMESr NOTIFYv _MODE PSHALL_PTRb RELATIONv SKIPv NFICS CUR_AREA PSHALL_AREA PSHALL_REG PSHALL_ORD PSHALL_FIL PSHALL_REL PSHALL_SKP PSHALL_TAR PSHALL_PTR SET FILTER TO &pshall_fil[pshall_ptr-n] SET RELATION TO &pshall_rel[pshall_ptr-n] SET SKIP TO &pshall_skp[pshall_ptr-n] NFICS PSHALL_PTR PSHALL_AREA PSHALL_ORD PSHALL_FIL PSHALL_REL PSHALL_SKP PSHALL_REG Editando Visualizando6 imprime grava e sai sai DEFINE WINDOW &WIN_NAME1 FROM INT((SROW()-_HEIGHT)/2),INT((SCOL()-_WIDTH)/2) TO INT((SROW()-_HEIGHT)/2)+(_HEIGHT-1),INT((SCOL()-_WIDTH)/2)+(_WIDTH-1) TITLE _TITLE FOOTER _FOOTER FLOAT DOUBLE SHADOW GROW ZOOM COLOR SCHEME 5 ESCAPE ESCAPE KEYBOARD "{CTRL+Q}Y" KEYBOARD "{CTRL+W}" KEYBOARD "{CTRL+W}P" MODI COMM &_FILE WINDOW &WIN_NAME1 MODI COMM &_FILE NOEDIT WINDOW &WIN_NAME1 ON KEY LABEL F2 &OLD_F2 ON KEY LABEL F9 &OLD_F9 ON KEY LABEL ESCAPE &OLD_ESC RELEASE WINDOW &WIN_NAME1 _FILE _EDIT _PRINT _HEIGHT _WIDTH _TITLE _PARAMETERS WIN_NAME1 ON_ESC ON_F2 ON_F9 _TECLA _FOOTER OLD_F9 OLD_ESC ESCAPE OLD_F2 PRINT_ASCII CONSOLEv TYPE &_FILE TO PRINTER SET CONSOLE &OLD_CONSOLE Ficheiro nao encontrado [ _FILE IMPRESSORA OLD_CONSOLE _MODU _PROGJ COMANDO INDIQUE O COMANDO &_COMMAND _COMMAND COMANDO _____TECLA _TIPO _NULLVAR \ - cancela @*HT _OPCAO _TITLE _OPCOES W_WIN W_TIT W_MSG W_BUT N_OPCOES W_MAX _QQI0KPZKH - cancela _TITLE _WIDTH _PICT WIN_WIDTH _QQI0NIYTE Anula o registo @*HT \!\ PARA RECOME SYSMENUv SET SYSMENU &MENU_STAT MENU_STAT MENSAGEM TMP_WIN _EXPR _ALIAS _EXPR _ALIAS _TYPE=TYPE("&FIELD") CCC$*> FIELD _TYPE IF TYPE("&CONDITION")<>"L" FILTERv SET FILTER TO &CONDITION para escolher para sair DESCRI O A PROCURAR enter DO aux_tab enter SET FILTER TO &old_filt _AREA TAG_1 TAG_2 FIELD_1 FIELD_2 __MODE CONDITION _VARREAD _CAMPO _WIDTH WIDTH_1 WIDTH_2 OLD_FILT F_SIZE GET_TAB1 IS_TAG GET_TAB2 ENTER CODIGO DESCRICAO8 &_varread=EVALUATE(field_1) {CTRL+Q} STR_1 STR_2 PERCENT CONT_1 CONT_2 WORD_1 WORD_2 Aguarde um momento... DO aux_calc DEFINE WINDOW calculadora FROM INT((srow()-20)/2),INT((scol()-53)/2) TO INT((srow()-20)/2)+19,INT((scol()-53)/2)+52 FOOTER " para sair"+IIF(TYPE("&_VARREAD")="N"," retornar valor","") TITLE "CALCULADORA" FLOAT CLOSE GROW SHADOW COLOR SCHEME 1 IF TYPE("&_VALUE")="N" .OR. LASTKEY()=27 Express o invalida! _CALCVALUE=&_value _VARREAD CALCULADORA _VALUE IF TYPE("&_VARREAD")="N" &_varread=_CALCVALUE {ESC} KEYBOARDb IF TYPE('&C') <> 'C' Erro na linha C . Express o inv lida Erro na linha C . Delimitadores trocados Erro na linha C . Delimitador direito n o encontrado Erro na linha C . Delimitador esquerdo n o encontrado {CTRL+HOME}C {DNARROW} {RIGHTARROW} KEYBOARD LINHA N_LINHAS @L 99_ @L 9999_ MTOEc OLD_ALIASI _ARRAY _ITEM Quatro Cinco Treze Quatorze Quinze Dezasseis Dezassete Dezoito Dezanove Vinte Trinta Quarenta Cinquenta Sessenta Setenta Oitenta Noventa Cento Duzentos Trezentos Quatrocentos Quinhentos Seiscentos Setecentos Oitocentos Novecentos Euros Centimo Centimos _VALOR _NUMERO _TEXT _VALOR1 NTOE_AUX _NUMERO _TEXT STACK_PTRb RELATIONv SKIPv stack esgotado em FUNCS.PRG _TARGET _PARAMETERS STACK_AREA STACK_REG STACK_ORD STACK_FIL STACK_REL STACK_SKP STACK_TAR STACK_PTR STACK_T1 STACK_T2 STACK_T SET FILTER TO &stack_fil[stack_ptr] SET RELATION TO &stack_rel[stack_ptr] SET SKIP TO &stack_skp[stack_ptr] AREA STACK_PTR STACK_AREA STACK_REG STACK_FIL STACK_REL STACK_SKP STACK_ORD STACK_TAR STACK_T STACK_T2 STACK_T1 Janeiro Fevereiro o Abril Maio Junho Julho Agosto Setembro Outubro Novembro Dezembro Regulariza Apuramento Encerramento Abertura INVALIDO6 _INIMES T_MES2 ROMANO_0b NUMERO ROMANO_0 ROMANO_1 ROMANO_2& VALUE MASKo Verifique a impressora e prima ENTER para imprimir ou ESC para desistir Verifique a impressora e prima ENTER para imprimir ou ESC para desistir Impress o em curso... Impress o cancelada. SWITCH_ON SUCESSO/ _LASTERRORb Acesso a ficheiro negado [C proc [ line [CC _ERROR _PROC _LINE _PARAMETERS _LASTERROR _LASTERRORb MODEb ALIASb Ficheiro em uso [ ] - tenta de novo - desiste. o foi possivel abrir o ficheiro [ ALIAS _LASTERROR( __MODEb *Registo em uso. para tentar de novo ou para desistir. __MODE STAT6 _mensagemb _mensagemb _mensagemb ..\shared\forms\frmlock _MENSAGEM _CMDTENTAR _CMDDESISTIR LBSTAT LBQUIET LCMENSAGEM LCCMDTENTAR LCCMDDESISTIR LNPARAMETERS PRT_RESULTl STRING Prima ENTER para anular este registo ou para desistir. DEL_MSG mvarb mvarb ERROR in data type. Cannot be encrypted. WIDTH DECIMALS OUTVAR CHCOUNT MTYPE OUTVAR CHCOUNT WIDTH DECIMALS| DECODE_STR\ PROG_ID DEMO_MODE ID_SERIAL ID_VERSAO ID_AGENTE VERSAO97 SERIAL97 AGENTE97 BASES_ABERTAS _NAME _ALIAS CUR_ALIAS _CAMPOS N_CAMPOS _ROWS _RESULTADO3 CREATE DBF &_TEMP FROM ARRAY _CAMPOS _NAME _TYPE _ALIAS CUR_ALIAS _CAMPOS N_CAMPOS _TEMP OLD_PATH NEW_PATH _ROWS _COLS COPYINDEX _FIELD _ALIAS _CAMPOS N_CAMPOS _RESULTADO CUR_ALIAS _NAME _TYPE _ALIAS CUR_ALIAS _CAMPOS N_CAMPOS _TEMP OLD_PATH NEW_PATH _ROWS _COLS TEMP COPYINDEX INDEX ON &_KEY TAG &_TAG _SOURCE _DEST SOURCE KEY_1 RESTRI KEY_1 _OPCMENU _IDUTIL OLD_ALIAS RESTRI KEY_1 Contribuinte Numero de C errado! Aceita? CHECK_DIGIT LCDESC LCMENS LNIND _OPCAO CHECK_DIGIT FIELD_1 THISFORMSET RELEASE DO errostab in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), _modulo, _tabnome, _tabalias, _tabdesc, _ID \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP MOD_C \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP C_TABELAS MOD_U \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP U_TABELAS MOD_E \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP E_TABELAS MOD_I \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP I_TABELAS MOD_S \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP S_TABELAS \Comuns\sabono.dbf \pessoa\funci \pessoa\indep \pessoa\local \pessoa\proce \pessoa\movim \pessoa\estab \pessoa\segur \pessoa\feria \pessoa\recol \pessoa\cadas \pessoa\autom \pessoa\custo \pessoa\infop MOD_A \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP A_TABELAS FOR _ID=1 TO ALEN(&_TABARRAY) _TABDESC=TABELAS(&_TABARRAY(_ID),1) _TABNOME=TABELAS(&_TABARRAY(_ID),2) _TABALIAS=TABELAS(&_TABARRAY(_ID),3) _TABINDEX=TABELAS(&_TABARRAY(_ID),4) do form \projectos\gdg2000\shared\forms\frmrec with _tabnome, _tabdesc, _tabalias, &_TABARRAY(_ID) INDEXA(&_TABARRAY(_ID),_TABNOME,_TABALIAS,.t.,.f.) INDEXA(&_TABARRAY(_ID),_TABNOME,_TABALIAS,.t.,.f.) INDEXA(&_TABARRAY(_ID),_TABNOME,_TABALIAS,.t.,.f.) DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) _MODULO LCVERIF ALLTAB ALLTAB_C _TABARRAY ALLTAB_U ALLTAB_E ALLTAB_I ALLTAB_S P_TAB_DESCONTOS TABELAS P_TAB_FUNCIONARIOS P_CODEMP P_TAB_INDEPENDENTES P_TAB_LOCAISPAGAMENTO P_TAB_PROCESSAMENTOS P_TAB_MOVIMENTOS P_TAB_ESTABELECIMENTOS P_TAB_SEGUROS P_TAB_FERIAS P_TAB_RECOLHA P_TAB_CADASTRO P_TAB_AUTOMATICOS P_TAB_CENTROSDECUSTO P_TAB_INFORMACOES ALLTAB_A FIXDBF P_PATH _TABNOME _TABALIAS P_INDEX P_CDX _TABINDEX E_TABELAS I_TABELAS \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP MOD_U \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP U_TABELAS MOD_E \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP E_TABELAS MOD_I \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP I_TABELAS MOD_S \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP S_TABELAS MOD_C \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP C_TABELAS MOD_A \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP A_TABELAS FOR _ID=1 TO ALEN(&_TABARRAY) _TABALIAS=TABELAS(&_TABARRAY(_ID),3) RELEASE &_TABARRAY _MODULO ALLTAB ALLTAB_U _TABARRAY ALLTAB_E ALLTAB_I ALLTAB_S FECHA_N1_N2 ALLTAB_C ALLTAB_A _TABALIAS TABELAS Aguarde um momento, Reindexando ficheiro ... \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP INDICES INDEX ON C TAG &_EXP _NOME _ALIAS _MESS _COMPACTA CDXNAME P_PATH ALLINDEX INDICES _showb _showb _showb A vers o de Demonstra o permite Imprimir Menssagem \PROJECTOS\GDG2000\SHARED\FORMS\PRINT p_exportb frx2any.exe0 frx2any.exe preview window frmform_preview ..\shared\forms\frmprev REPORT FORM &_comando _REPORT _SHOW _COMANDO _REPORTEMP _SERI P_DEMO _FPRESET SET_REPORT P_FONT P_SIZE CLR_REPORT P_EXPORT FRX2ANY OFORM_PREVIEW RELEASEB Printing... Printing...( MOD_E Entidades MOD_I Imobilizado MOD_C Contabilidade MOD_S o de Pessoal MOD_N Contabilidade N o Organizada MOD_A _DESC LCMENSAGEM LCTITULO LBTOCA LNPARAM LNVAL LBRETORNOP Erro de programa LCMENSAGEM ICNSA do deltables_aux with error() \projectos\gdg2000\shared\prg\arraysp \projectos\gdg2000\shared\prg\arraysp Imobilizado \projectos\gdg2000\shared\prg\arraysp Contabilidade \projectos\gdg2000\shared\prg\arraysp o de Pessoal \projectos\gdg2000\shared\prg\arraysp Contabilidade N o Organizada \projectos\gdg2000\shared\prg\arraysp o foi possivel eliminar os dados de Provavelmente est o a ser acedidos por outro utilizador \imobil\? \contab\? \pessoa\????? \naoorg\? \avenca\? DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) PCENTID PCMODULO PCANO LBRET LNIND LBOCUPADO LCTABELA LBRESPOSTA LCVARMENS LCPARAM P_CODEMP P_ANOPROC ALLTAB ALLTAB_I I_TABELAS LCARRAY ALLTAB_C C_TABELAS ALLTAB_S S_TABELAS ALLTAB_N N_TABELAS ALLTAB_A A_TABELAS TABELAS P_PATH PRERRO LBRET) DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) PCEXIST PCNEW LNRES CNAIS PCMODULO LNIND LCEXIS LCEXISANO LCNEW LCNEWANO LYTAB LYRES LNLEN LNAUX LNCONT P_CODEMP P_ANOPROC ALLTAB_I I_TABELAS ALLTAB TABELAS NTABLE P_PATH INDEXA LNIND2 ALLTAB_C C_TABELAS ALLTAB_S S_TABELAS ALLTAB_N N_TABELAS _SEPb P_MOEDAb _DECb _ESPb _MASCARA _SEPARADOR _GRUP3 _REST _DECIMAL P_MOEDA _ESPb 999 999 999.99 999 999 999 999 _MASCARA P_MOEDA _ESPb 9 9 9 9 9 9 9 9 9 9.9 9 9 9 9 9 9 9 9 9 9 9 9 9 _MASCARA P_MOEDA8 _VALESC _VALEURO8 _VALEURO _VALESC CCC$* CCC$* CCC$* CCC$* CCC$* LCPATH P_PATH STATUSBAR _STATUSPANEL1 TEXTO P_CODEMP _STATUSPANEL2 P_FIRMA _STATUSPANEL3 P_ANOPROC _STATUSPANEL4 P_LOGIN _STATUSPANEL5 _STATUSPANEL6 EMPRESA SELECT &OLD_ALIAS _EXPR _CODI _STAT OLD_ORDER OLD_ALIAS IDEMPRESA EMPRESA FIRMA ICNSA MTABIN Entidades - Imobilizado empresa mod_imo = 1 and inlist(arrirs, 0, 2, 4, 6) key_1 idempresa,Codigo,;firma,Nome,350;anoimo,Ano, text1 text1 MTEXTDBL text1 text1 MTEXTDBL text1 text1 MTEXTDBL dynamicforecolor iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0)) Column text1 MTEXTENTRADA empresa key_1 MTABIN_EXERCICIOS Entidades - Contabilidade empresa mod_org = 1 and inlist(arrirs, 0, 1, 4, 5) key_1 idempresa,Codigo,;firma,Nome,350;anocon,Ano,; text1 text1 MTEXTDBL text1 text1 MTEXTDBL text1 cmdEx BUTTONEX dynamicforecolor iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0)) Column text1 MTEXTENTRADA empresa key_1 empresa empresa MTABIN Entidades - Gest o de Pessoal empresa mod_sal = 1 and arrirs < 4 key_1 idempresa,Codigo,;firma,Nome,350;dat_proc,Ultimo Proc.,60 text1 text1 MTEXTDBL text1 text1 MTEXTDBL dynamicforecolor iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0)) Column text1 MTEXTENTRADA empresa key_1 A fun o ENTIDIN foi chamada sem parametro,C ou com parametro errado. LCMODULO LCENTID ENTRADA CTITULO CALIAS CFILTRO CORDEM1 CFIELDS NALTURA CONSTROI TFORM GRID1 COLUMN1 REMOVEOBJECT ADDOBJECT COLUMN2 COLUMN3 TEXT1 VISIBLE SETALL HEIGHT WIDTH CMDENTER SELECTONENTRY XSEEK VCHAVE LCGUARDA ROWHEIGHT COLUMN4 CMDEX EMPRESA ANOCON VALUE CEXERCICIO PROG_ERRORY FRMSUBS LNRES FRMSUBS1 AUTOCENTER CADICIONAR Falta parametro na chamada o FOLDER Scripting.FileSystemObject _FOLDER LCFOLDER LLRET LOFSO PROG_ERROR FOLDEREXISTSL Falta parametro na chamada o CREATEFOLDER Scripting.FileSystemObject _FOLDER LCFOLDER LNRET LOFSOC LCTEMP LNIND LNOCUR LCNEWFOLDER LNTOTDIR PROG_ERROR FOLDER CREATEFOLDER Falta parametro na chamada o DELETEFOLDER Scripting.FileSystemObject _FOLDER LCFOLDER LNRET LOFSOC PROG_ERROR FOLDER DELETEFOLDER o foi indicado parametro aquando da chamada o FORMCALL _FORM _FORMNAME LNRET LCFORM LCFORMNAME PROG_ERROR o foi indicado parametro aquando da chamada o FORMCALL_EX with ' with ' with ' do form noshow &lcstring &lcstring _FORM _FORMNAME LNRET LNPARAMETERS LCPARAMS LCSTRING PROG_ERROR Erro na defini o dos parametros na chamada o EXERCICIOS \naoorg\? \contab\P lnret = adir(&lcrandom, lcskeleton) lntot = alen(&lcrandom,1) release &lcarray public &lcarray[lntot] lcporc = val(left(right(alltrim(&lcrandom[lnind,1]),6),2)) store alltrim(str(int(lcporc + iif(lcporc > 49, 1900, 2000)))) to &lcarray[lnind] =asort(&lcarray,1,lntot) _MODULO _PARRAY _ENTID LCMODULO LCARRAY LCENTID LNANO LNRET LBRET2 LCSKELETON LCRANDOM LBCHECK PROG_ERROR P_PATH LNTOT LCPORC LNIND Erro nos parametros enviados p/ a fun o EXISBD em FUNCS \imobil\? \pessoa\????? \avenca\? _MODULO _ENTID LBRET LCMODULO LCENTID LNTOTAL PROG_ERROR LCEXISBD P_PATH _DATA1 _DATA2 LNANOS DATA1 DATA2 LNRET LDTRAB BETWEEN(0, C if type("&lcexpressao") <> "L" Express o incorrecta INLIST(0,C if type("&lcexpressao") <> "L" Express o incorrecta BETWEEN( INLIST( Parametro 'FUN O' incorrecto em FILTRO_MLT _FUNCAO _FILTRO _FIELD _QUIET LCRESULTADO LCFUNCAO LCFILTRO LCFIELD LBQUIET LCQUIET LCSTRING LNDISPLACEMENT LNIND LCEXPRESSAO CT_BET CT_INL _TOTAL PROG_ERROR la_act_ex Aguarde um momento... o foi possivel abrir as tabelas em modo exclusivo _SKELETON _ENTIDADE _OCURRENCE LCSKELETON LCENTID LCOCUR LBRET LCFICH LCPATH LBEXCLUSIVE LNHDL LCMYFILE LBCONTAB _TEMP1 _TEMP2 _LISTA LNRET LCNOME LCNOME_SUB LNIND LNTOTEXERCICIOS EXERCICIOS LA_ACT_EX FILE_NAME FIELD_NAME FIELD_TYPE FIELD_LEN FIELD_DEC CORRECTOR PODE_AVANCAR FICHEIRO CAMPOS CHK_FILES _PATH _FILE LCPATH LCFILE LBRET EM_USO Actualiza o de tabelas Verificando o ficheiro ACTUALIZADO CRIADO Opera o terminada. Tecle [ENTER] para continuar. DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) _PATH _TEMP1 _TEMP2 _LISTA _FILENAME PROG_PATH FRMMAIN BACKCOLOR CONTROLBOX HEIGHT WIDTH CAPTION AUTOCENTER FONTSIZE FIELD_NAME FIELD_TYPE FIELD_LEN FIELD_DEC KEY_1 CORRECTOR FILE_NAME _CREATED _UPDATED STRU_COMPARE STRU_UPDATE STRU_CREATE NEWNC key_1 LCCHANGED LCCAHNGED KEY_1 FIELD_NAME FIELD_TYPE FIELD_LEN FIELD_DEC Actualizando o ficheiro _FILENAME _PATH _TEMPX1 _TEMPX2 LCPATH LCFILENAME _TEMP1 _TEMP2 TEMP COPYINDEX PROG_PATH Criando o ficheiro _FILENAME _PATH _TEMPX2 LCFILENAME LCPATH _TEMP2 _ALIASX Falta parametro na chamada o XPROPER Erro de programa Dos dos Das das _NOME LCNOME LCRET _valueb Falta de parametro ou parametro incorrecto Erro de programa rgb(CC _VALUE LCRETORNO LNVALUE LNVALOR1 LNVALOR2 LNVALOR3b shared\icons _PATH LCPATH LCRET _DATA LDDATA LCRET _VALOR LNVALOR LNTRAB LNRETORNO LNRES _VALOR LNVALOR LNTRAB LNRETORNO LNRES _FICH LCFICH LBRET LNHANDLEY Seleccione o directorio Explorador ..\shared\forms\frmdir _TITULO _MENSAGEM _PATHINICIAL _FILE LCTITULO LCMENSAGEM LCPATHINICIAL LCRET LNPARAMETERS LBFILE PRT_CHOSEDIR_RESULTADO! _DESC _DESC MOD_C MOD_I MOD_S MOD_N MOD_E MOD_A _LOGIN _MODULO _PATH LCLOGIN LCMODULO LCCOMP LCPATH LNRET LCTEXTFILE LOGIN DATAHORA_E DATAHORA_S MODULO TEXTFILEs _PATH LCPATH LNHDL TEXTFILE DATAHORA_S Confirma saida da aplica Terminar... evchk32 evmov32 evchk32 evmov32 Confirma saida da aplica Terminar... evchk32 evmov32 evchk32 evmov32 _CONFIRMA _EXECUTA LCFORM LCEXECUTA LBCONFIRMA LBRET APPLICATION FORMS LOG_OUT P_PATH P_HDL LCSTRING _STRING LCSTRING lcvariavel cs_xml_u cs_xml_u _CURSOR _XMLFILE _FLAG LCCURSOR LCXMLFILE LNFLAG LCRET LCVARIAVEL LNTRAB CS_XML_U VARIAVELT _CRLF LCCRLFU _CRLF LCCRLFQ _VALOR LCTAG LCVALOR OPENTAG CLOSETAGs _TITULO _CODEC _CRLF LCCRLF _VALOR _TITULO _CODEC LCTAG LCVALOR LCTITULO LCCODEC OPENTAG_CODEC CLOSETAG Excel.Application _FILE LCFILE OEXCEL WORKBOOKS CLOSE OPEN2 _CELULA OEXCEL RANGE VALUE KEY_1 _CHAVE ______STAT OLD_ALIAS KEY_1 PARMS KEY_1 SAVE ALL LIKE &_SKELETON TO MEMO PARM.PARMS _CHAVE _SKELETON ______STAT OLD_ALIAS KEY_1 CHAVE @L 99_ @L 99_ @L 99_ HORAINICIAL HORAFINAL NSEGUNDOS HORAS MINUTOS SEGUNDOS @L 99_ @L 99_ NSEGUNDOS HORAS MINUTOS SEGUNDOS ICNSA MTABIN_EXERCICIOS Entidades - Contabilidade empresa mod_org = 1 key_1 idempresa,Codigo,;firma,Nome,350;anocon,Ano,; text1 text1 MTEXTDBL text1 text1 MTEXTDBL text1 cmdEx BUTTONEX dynamicforecolor iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0)) Column text1 MTEXTENTRADA empresa key_1 A fun o ENTIDIN foi chamada sem parametro,C ou com parametro errado. LCMODULO LCENTID ENTRADA CTITULO CALIAS CFILTRO CORDEM1 CFIELDS NALTURA CONSTROI TFORM GRID1 ROWHEIGHT COLUMN1 REMOVEOBJECT ADDOBJECT COLUMN2 COLUMN4 TEXT1 VISIBLE CMDEX SETALL HEIGHT WIDTH CMDENTER SELECTONENTRY XSEEK VCHAVE PROG_ERROR _EXPR _CICK plano1 plano2 PLANO1 PLANO2 _HORASSEMANA _DIAS _BASE LNHORASSEMANA LNDIAS LNRESULTADO LNBASE' \comuns\ sconfig.xml cconfig.xml iconfig.xml66 cs_configuracoes cs_configuracoes _MODULO LCMODULO LNRET LCFILE P_PATH CS_CONFIGURACOES TEXTO KEY_1 \comuns\ sconfig.xml cconfig.xml iconfig.xml66 cs_configuracoes _MODULO LCMODULO LNRET LCFILE P_PATH< LC_Ce _DATA LCRETJ _PATH LCRET LNRATg Janeiro Fevereiro o Abril Maio Junho Julho Agosto Setembro Outubro Novembro Dezembro PA_GERAL_MES PA_GERAL_MES IMPRESSORA, LOAD_CFGq SLASH_BAR f_lock GETMEMLINI MOUSE_YX\ errhandV SETWPOS SHOW_PATH GET_PROCS ON_ESCAPEj EXEC_ATALHO: SYSMSGR SUSPEND PUSH_ALL POP_ALL EDIT_ASCII PRINT_ASCII SUSPEND ACESSO EXEC_CMD< PAUSA NULLVAR SIM_NAO PROMPT_WIN6& OPC_DEL JENCRYPT JPNUM XSEEK READ_STRINGN1 WRITE_STRING NT_APPEND BIG_NUMBER SET_REPORT07 CLR_REPORT LINHA_MEMO.; GET_DIRS SPACESTR WO_FILE#@ SCR_SAVER L_ON_GMB F_ON_G f_size get_tab aux_tab is_tag similarmL calculadora aux_calc check_text+T eval_text dtoeBZ clear_relations clear_filters clear_ordersd[ clear_rfo aseek ntoet\ ntoe_aux mtoe=q mes_extLt preval romano u dbcr_OLD({ PRINTER f_nextq} ERR_HANDLER n_use r_lock} X_LOCK ENCRYPTi CANCEL del_msg encode_str8 decode_str/ check_passG check_protection bases_abertas GETFIELDLENX ALTFIELD ISFIELD< ADDFIELDc COPYINDEX RESTRICT CHK_NIF VERIFICA_NIF VERTAB_AUXU OPENTAB CLOSETABV INDEXA NOPRINTING MODULODESC PROG_ERROR DELTABLES DELTABLES_AUX NTABLE CRIABDL mascmp mascivaG ESCTOEURO. EUROTOESC} STBRACT MAISALGUMA ENTIDIN MSGADICIONA- FOLDER CREATEFOLDER DELETEFOLDER FORMCALL FORMCALL_EX EXERCICIOS EXISBD YEARDIF FILTRO_MLT! UPG_TABLES PODE_AVANCARi CHK_FILES, STRU_COMPARE STRU_UPDATE: STRU_CREATE= DBFSIZE. XPROPER_ INV_RGB PATHICON EXT_DATA XROUNDF XROUND_2 EM_USO CHOSEDIRf! XML_OPENTAGF# XML_CLOSETAGx# LOG_IN LOG_OUT TERMINAR RETIRA_ACENTUADOS U_CURSORTOXMLK. OPENTAG CLOSETAG OPENCLOSETAG OPENTAG_CODEC OPENCLOSETAG_CODEC EXCEL CELLVALy4 SET_PARMS UPD_PARMS Decortempo ENTIDIN_2$9 Numeric]? fecha_n1_n2H@ DIASHORAS LE_CONFIGURACOES GRAVA_CONFIGURACOESBC SWAPCD EX_DTOS PATH_UP ARRAY_MESES_GERALkE ARRAY_MESES_GERAL_X O Ficheiro n o pode ser acedidioC Provavelmente em uso por outro utilizador ! Erro :CC mero do erro: CC Mensagem de erro: Linha de c digo com erro: mero de linhas com erro: CC Programa com erro: MERROR MESS1 MPROG MLINENO _MSG1 _MSG2 _MSG3 _MSG4 _MSG5 P_CANCELA _OPC/ do form \projectos\gdg2000\shared\forms\frmrec with _nome, _desc, _alias, &_TABARRAY(_ID) ces danificados : O Ficheiro deve ser reindexado : Erro :CC ces inexitentes : O Ficheiro deve ser reindexado : Erro :CC O Ficheiro o pode ser acedidio Provavelmente em uso por outro utilizador ! Erro :CC O Ficheiro o existe poss vel Continuar Erro :CC MOD_U MERROR _MODULO _NOME _ALIAS _DESC _MSG1 _MSG2 _MSG3 _MSG4 _MSG5 P_INDEX P_CDX CLOSETAB P_MODULO DATAHORA_S ERRODESC, ERROSTAB (,,"MOD_E","MODULO DE ENTIDADES",1) ("MOD_E",4,"E_P1","Ficheiros",1) ("E_P1",4,"E_P1.1","Entidades",1) ("E_P1",4,"E_P1.2","Org os Sociais",1) ("E_P1",4,"E_P1.3","Toc",1) ("E_P1",4,"E_P1.5","Gabinete",1) ("E_P1",4,"E_P1.6","Moeda",1) ("E_P1",4,"E_P1.7","Pa ses",1) ("E_P1",4,"E_P1.8","Associa es Patronais",1) ("E_P1",4,"E_P1.9","Naturezas Jur dicas",1) ("MOD_E",4,"E_P2","Utilitarios",1) ("E_P2",4,"E_P2.1","Reindexar Ficheiros",1) ("E_P2",4,"E_P2.2","Seleccionar impressora",1) ("E_P2",4,"E_P2.3","Seleccionar Fonte",1) ("E_P2",4,"E_P2.4","Editar Ficheiro",1) ("E_P2",4,"E_P2.5","Consultar Ficheiro de Log",1) (,,"MOD_I","MODULO DE IMOBILIZADO",1) ("MOD_I",4,"I_P1","Ficheiros",1) ("I_P1",4,"I_P1.1","Grupos homog neos",1) ("I_P1",4,"I_P1.2","Contas do POC",1) ("I_P1",4,"I_P1.3","Coeficientes p/ amortiza es degressivas",1) ("I_P1",4,"I_P1.4","Coeficientes de correc o da moeda",1) ("I_P1",4,"I_P1.5","Centros de custo",1) ("I_P1",4,"I_P1.6","Tabela de correc es fiscais",1) ("I_P1",4,"I_P1.7","Seguradoras",1) ("I_P1",4,"I_P1.8","Fichas do imobilizado",1) ("MOD_I",4,"I_P2","Amortiza es",1) ("I_P2",4,"I_P2.1","Processamento das amortiza es",1) ("I_P2",4,"I_P2.2","Anular processamento",1) ("I_P2",4,"I_P2.3","Simula es",1) ("I_P2",4,"I_P2.4","Hist rico",1) ("I_P2",4,"I_P2.5","Contabilidade",1) ("I_P2.5",4,"I_P2.5.1","Correc es fiscais do exercicio",1) ("I_P2.5",4,"I_P2.5.2","Proveitos por via de comparticipa es",1) ("I_P2.5",4,"I_P2.5.3","Nota de lan amento (Amortiza es do exercicio)",1) ("I_P2.5",4,"I_P2.5.4","Exporta o de lan amentos",1) ("I_P2",4,"I_P2.6","Mapa de amortiza es",1) ("I_P2",4,"I_P2.7","Mapa de + e - valias",1) ("I_P2",4,"I_P2.8","Encerramento do exercicio",1) ("I_P2",4,"I_P2.9","Reabertura do exercicio anterior",1) ("MOD_I",4,"I_P3","Reavalia es",1) ("I_P3",4,"I_P3.1","Processamento das reavalia es",1) ("I_P3",4,"I_P3.2","Anular processamento das reavalia es",1) ("I_P3",4,"I_P3.3","Contabilidade",1) ("I_P3.3",4,"I_P3.3.1","Nota de lan amento",1) ("I_P3.3",4,"I_P3.3.2","Exporta o de lan amentos",1) ("I_P3",4,"I_P3.4","Mapa de reavalia es",1) ("MOD_I",4,"I_P4","Listagens",1) ("I_P4",4,"I_P4.1","Rela o / Resumo de bens por centro de custo",1) ("I_P4",4,"I_P4.2","Rela o / Resumo de bens por grupo homog neo",1) ("I_P4",4,"I_P4.3","Rela o / Resumo de bens por conta",1) ("I_P4",4,"I_P4.4","Rela o de bens por tipo",1) ("I_P4",4,"I_P4.5","Rela o de bens por conta e grupo",1) ("I_P4",4,"I_P4.6","Listagem de elementos abatidos",1) ("I_P4",4,"I_P4.7","Bens cujo valor liquido < quef. amortiza o",1) ("I_P4",4,"I_P4.8","Bens totalmente amortizados",1) ("I_P4",4,"I_P4.9","Bens adquiridos c/ + valia reinvestida",1) ("I_P4",4,"I_P4.10","Bens adquiridos entre anos",1) ("I_P4",4,"I_P4.11","Bens adquiridos em loca o financeira",1) ("I_P4",4,"I_P4.12","Bens j reavaliados",1) ("I_P4",4,"I_P4.13","Bens n o reavaliados",1) ("I_P4",4,"I_P4.14","Mapa contabilistico dos bens reavaliados",1) ("I_P4",4,"I_P4.15","Confer ncia de taxas",1) ("MOD_I",4,"I_P5","Utilit rios",1) ("I_P5",4,"I_P5.1","Reindexar ficheiros",1) ("I_P5",4,"I_P5.2","Seleccionar impressora",1) ("I_P5",4,"I_P5.3","Seleccionar fonte",1) ("I_P5",4,"I_P5.4","Editar ficheiro",1) ("I_P5",4,"I_P5.5","Consultar ficheiro de Log",1) ("I_P5",4,"I_P5.6","Mudar entidade",1) ("I_P5",4,"I_P5.7","Dados da entidade",1) ("I_P5",4,"I_P5.8","Converter",1) (,,"MOD_C","MODULO DE CONTABILIDADE",1) ("MOD_C",4,"C_P1","Ficheiros",1) ("C_P1",4,"C_P1.1","Plano de Contas",1) ("C_P1",4,"C_P1.2","Descritivos",1) ("C_P1",4,"C_P1.3","Criterios de reparti o",1) ("C_P1",4,"C_P1.4","Documentos autom ticos",1) ("C_P1",4,"C_P1.5","Configura o do IVA",1) ("MOD_C",4,"C_P2","Contabilidade",1) ("C_P2",4,"C_P2.1","Movimentos",1) ("C_P2",4,"C_P2.2","Di rios",1) ("C_P2",4,"C_P2.3","Balancetes",1) ("C_P2",4,"C_P2.4","Extractos",1) ("C_P2",4,"C_P2.5","Declara o peri dica do Iva",1) ("C_P2",4,"C_P2.6","Apuramento do Iva e outros",1) ("C_P2",4,"C_P2.7","Encerramento das contas",1) ("C_P2",4,"C_P2.8","Abertura do exercicio seguinte",1) ("C_P2",4,"C_P2.9","Importa o de movimentos",1) ("C_P2.9",4,"C_P2.9.1","De outra entidade",1) ("C_P2.9",4,"C_P2.9.2","Do Ficheiro",1) ("C_P2.9",4,"C_P2.9.3","Amortiza es do Exerc cio",1) ("C_P2.9",4,"C_P2.9.4","",1) ("C_P2.9",4,"C_P2.9.5","",1) ("C_P2.9",4,"C_P2.9.6","",1) ("C_P2",4,"C_P2.10","Situa o da Contabilidade",1) ("C_P2",4,"C_P2.11","Opera es com movimentos",1) ("C_P2.11",4,"C_P2.11.1","Verifica o de movimentos",1) ("C_P2.11",4,"C_P2.11.2","Regenera o de acumulados",1) ("C_P2.11",4,"C_P2.11.3","Transfer ncia de conta",1) ("C_P2.11",4,"C_P2.11.4","Transfer ncia de documentos",1) ("C_P2.11",4,"C_P2.11.5","Anula o de documentos",1) ("C_P2.11",4,"C_P2.11.6","Verificar/Actualizar contribuintes",1) ("C_P2.11",4,"C_P2.11.7","Anula o de movimentos de valor nulo",1) ("MOD_C",4,"C_P3","Gest o",1) ("C_P3",4,"C_P3.1","Consulta de Conta",1) ("C_P3",4,"C_P3.2","Consulta de Saldos",1) ("C_P3",4,"C_P3.3","Resumo de Di rios",1) ("C_P3",4,"C_P3.4","Consulta de Movimentos",1) ("C_P3",4,"C_P3.5","Indicadores Econ mico-Financeiros",1) ("C_P3",4,"C_P3.6","Or amentos",1) ("C_P3.6",4,"C_P3.6.1","Manuten o",1) ("C_P3.6",4,"C_P3.6.2","Consultas",1) ("C_P3.6",4,"C_P3.6.3","Mapas de Desvios",1) ("C_P3",4,"C_P3.7","Concilia es Banc rias",1) ("C_P3.7",4,"C_P3.7.1","Extracto Banc rio",1) ("C_P3.7",4,"C_P3.7.2","Concilia o Banc ria",1) ("C_P3.7",4,"C_P3.7.3","Consultas",1) ("C_P3.7",4,"C_P3.7.4","Relat rios",1) ("C_P3",4,"C_P3.8","Contas correntes",1) ("C_P3.8",4,"C_P3.8.1","Picagem de Contas Correntes",1) ("C_P3.8",4,"C_P3.8.2","Extracto de Conta corrente",1) ("C_P3.8",4,"C_P3.8.3","Documentos em Aberto",1) ("C_P3.8",4,"C_P3.8.4","An lise de Saldos por antiguidade",1) ("C_P3.8",4,"C_P3.8.5","",1) ("C_P3.8",4,"C_P3.8.6","",1) ("C_P3.8",4,"C_P3.8.7","",1) ("C_P3",4,"C_P3.9","Simula o de Resultados",1) ("C_P3",4,"C_P3.10","Mapas de Gest o",1) ("C_P3",4,"C_P3.11","Estat stica de Movimentos",1) ("MOD_C",4,"C_P4","Presta o de Contas",1) ("C_P4",4,"C_P4.1","Demonstra es Financeiras",1) ("C_P4",4,"C_P4.2","Anexo ao Balan o e Demonstra o",1) ("C_P4",4,"C_P4.3","Modelo 22 - IRC",1) ("C_P4",4,"C_P4.4","Modelo 3 - IRS",1) ("C_P4",4,"C_P4.5","Declara o Anual IRC, IRS, IVA",1) ("C_P4",4,"C_P4.6","Relat rio de Gest o",1) ("C_P4",4,"C_P4.7","Art. Estatuto da CTOC",1) ("MOD_C",4,"C_P5","Utilit rios",1) ("C_P5",4,"C_P5.1","Indexar Ficheiros",1) ("C_P5",4,"C_P5.2","Consultar ficheiro de Log",1) ("C_P5",4,"C_P5.3","Seleccionar Impressora",1) ("C_P5",4,"C_P5.4","Seleccionar Fonte",1) ("C_P5",4,"C_P5.5","Editar Ficheiro",1) ("C_P5",4,"C_P5.6","Mudar de Entidade",1) ("C_P5",4,"C_P5.7","Dados da Entidade",1) ("C_P5",4,"C_P5.8","C pias de Seguran a",1) ("C_P5",4,"C_P5.9","Prefer ncias",1) ("C_P5",4,"C_P5.10","Exerc cio Anterior",1) ("C_P5",4,"C_P5.11","Exerc cio Seguinte",1) ("C_P5",4,"C_P5.12","Converter para Euros",1) ("C_P5",4,"C_P5.13","Moeda de Output",1) (,,"MOD_S","MODULO DE GEST O DE PESSOAL",1) ("MOD_S",4,"S_P1","Ficheiros",1) ("S_P1",4,"S_P1.1","Bancos",1) ("S_P1",4,"S_P1.2","Seguros",1) ("S_P1",4,"S_P1.3","Centros de custo",1) ("S_P1",4,"S_P1.4","Estabelecimentos",1) ("S_P1",4,"S_P1.5","Locais de pagamento",1) ("S_P1",4,"S_P1.6","Autom ticos",1) ("S_P1",4,"S_P1.7","Tabelas comuns",1) ("S_P1.7",4,"S_P1.7.1","Abonos",1) ("S_P1.7",4,"S_P1.7.2","Faltas",1) ("S_P1.7",4,"S_P1.7.3","Descontos",1) ("S_P1.7",4,"S_P1.7.4","Irt/Categorias",1) ("S_P1.7",4,"S_P1.7.5","Profiss es",1) ("S_P1.7",4,"S_P1.7.6","Estado",1) ("S_P1.7",4,"S_P1.7.7","Habilita es liter rias",1) ("S_P1.7",4,"S_P1.7.8","IRS",1) ("S_P1.7",4,"S_P1.7.9","Centros de Seg. Social",1) ("S_P1.7",4,"S_P1.7.10","Regimes",1) ("S_P1.7",4,"S_P1.7.11","Distritos/Concelhos/Freguesias",1) ("S_P1.7",4,"S_P1.7.12","Nacionalidades",1) ("S_P1.7",4,"S_P1.7.13","Sindicatos",1) ("S_P1.7",4,"S_P1.7.14","Configura es contabilidade",1) ("MOD_S",4,"S_P2","Colaboradores",1) ("S_P2",4,"S_P2.1","Funcion rios",1) ("S_P2.1",4,"S_P2.1.1","Anula o de funcion rios",1) ("S_P2.1",4,"S_P2.1.2","Anula o de fixos dos funcion rios",1) ("S_P2",4,"S_P2.2","Independentes",1) ("S_P2.2",4,"S_P2.2.1","Manuten o",1) ("S_P2.2",4,"S_P2.2.2","Lan amentos",1) ("S_P2",4,"S_P2.3","Hist rico de cadastro",1) ("S_P2",4,"S_P2.4","Introdu o de acumulados",1) ("MOD_S",4,"S_P3","Processamento",1) ("S_P3",4,"S_P3.1","Consulta de processamentos",1) ("S_P3",4,"S_P3.2","Relat rio de encargos",1) ("S_P3",4,"S_P3.3","Recolha de vari veis",1) ("S_P3",4,"S_P3.4","Processamento autom tico",1) ("S_P3",4,"S_P3.5","Processamento manual",1) ("S_P3",4,"S_P3.6","Simulador",1) ("S_P3",4,"S_P3.7","Manuten o de processamentos",1) ("S_P3.7",4,"S_P3.7.1","Anula o de processamentos",1) ("S_P3",4,"S_P3.8","Emitir recibos",1) ("S_P3",4,"S_P3.9","Emitir cheques",1) ("S_P3",4,"S_P3.10","Listagem de transfer ncias banc rias",1) ("MOD_S",4,"S_P4","Listagens",1) ("S_P4",4,"S_P4.1","Seguran a Social",1) ("S_P4",4,"S_P4.2","Quadros de pessoal",1) ("S_P4",4,"S_P4.3","Declara o de Reten es na Fonte",1) ("S_P4",4,"S_P4.4","Anexo J",1) ("S_P4",4,"S_P4.5","Outras listagens",1) ("S_P4.5",4,"S_P4.5.1","Mapa de vencimentos",1) ("S_P4.5",4,"S_P4.5.2","Mapa de liquida o de IRS",1) ("S_P4.5",4,"S_P4.5.3","Mapa p/ contabilidade",1) ("S_P4.5",4,"S_P4.5.4","Mapa p/ o seguro",1) ("S_P4.5",4,"S_P4.5.5","Mapa p/ o sindicato",1) ("S_P4.5",4,"S_P4.5.6","Lista de Valores descontados de IRS",1) ("S_P4.5",4,"S_P4.5.7","Lista de Valores descontados de TSU",1) ("S_P4.5",4,"S_P4.5.8","Listagem de diferen as TSU",1) ("S_P4.5",4,"S_P4.5.9","Mapa por centros de custo",1) ("S_P4.5",4,"S_P4.5.10","Extracto do funcion rio",1) ("S_P4.5",4,"S_P4.5.11","Lista de abonos/faltas",1) ("S_P4.5",4,"S_P4.5.12","Mapa de altera es mensais",1) ("S_P4.5",4,"S_P4.5.13","Mapa de abonos fixos",1) ("S_P4.5",4,"S_P4.5.14","Mapa de f rias",1) ("S_P4.5",4,"S_P4.5.15","Mapa de faltas",1) ("S_P4.5",4,"S_P4.5.16","Mapa de admiss es",1) ("S_P4.5",4,"S_P4.5.17","Mapa de demiss es",1) ("S_P4.5",4,"S_P4.5.18","Cessa o de contratos",1) ("S_P4.5",4,"S_P4.5.19","Pessoal ao servi o",1) ("S_P4.5",4,"S_P4.5.20","Declara o anual de rendimentos",1) ("MOD_S",4,"S_P5","Utilit rios",1) ("S_P5",4,"S_P5.1","Indexar Ficheiros",1) ("S_P5",4,"S_P5.2","Seleccionar Impressora",1) ("S_P5",4,"S_P5.3","Seleccionar Fonte",1) ("S_P5",4,"S_P5.4","Editar Ficheiro",1) ("S_P5",4,"S_P5.5","Consultar ficheiro de Log",1) ("S_P5",4,"S_P5.6","Mudar de Entidade",1) ("S_P5",4,"S_P5.7","Dados da Entidade",1) ("S_P5",4,"S_P5.8","C pias de Seguran a",1) ("S_P5",4,"S_P5.9","Tarefas",1) ("S_P5",4,"S_P5.10","Prefer ncias",1) ("S_P5",4,"S_P5.11","Licen a",1) ("S_P5",4,"S_P5.12","Moeda de Output",1) (,,"MOD_A","AVEN AS",1) MNUEf& Tabela de Utilizadores \COMUNS\wutil.dbf Tabela de Empresas \COMUNS\wempresa.dbf EMPRESA Tabela de Org o Sociais \COMUNS\Worgaos.dbf ORGAOS Tabela de Tocs \COMUNS\Wtoc.dbf Tabela de Rela es Org os/Empresa \COMUNS\wemporg.dbf EMPORG Tabela de Restri \COMUNS\wrestri.dbf RESTRI Dados do Gabinete \COMUNS\wgabinet.dbf Ficheiro de LOG \COMUNS\wlog.dbf Tabela de Grupos Homogeneos \COMUNS\Igrupo.dbf Tabela de Contas do Poc \COMUNS\Iconta.dbf Coeficientes p/Amortiza es Degressivas \COMUNS\Icoefad.dbf Coeficientes de Correc o da Moeda \COMUNS\Icoefcm.dbf Tabela de centros de Custos* \Imobil\C Tabela de Correc es Fiscais \Comuns\icorf.dbf Tabela de Fichas de Imobilizado* \Imobil\B Tabela de Seguradoras \COMUNS\wsegur.dbf segur Tabela de Moedas \COMUNS\wmoeda.dbf moeda Historico de Amort. e Reav. * \Imobil\H Tabela de Diarios \Comuns\cdiario.dbf diario Plano de Contas * \contab\P Plano Tabela de Descritivos \comuns\cdescri.dbf tabdesc Tabela de Centros de Custo * \contab\C centro Criterios de reparti o por Centro de Custo * \contab\K criterio Tabela de Movimentos * \contab\L Lanca Tabela de Parametros \comuns\wparam.dbf Dados do Exerc cio * \contab\E exerc Tabela de Indicadores \comuns\cindica.dbf indica Tabela de Documentos Autom ticos \comuns\cdocaut.dbf docaut Tabela de Movimentos Autom ticos \comuns\cdocautd.dbf docautd Tabela de Configura es do IVA \comuns\cpariva.dbf pariva amentos * \contab\O orcamento Extractos * \contab\X extracto Tabela de Paises \COMUNS\wpaises.dbf paises Ficheiro de configura o de Modelos * \contab\M mapas Sindicatos \Comuns\ssind.dbf Natureza Juridica \Comuns\wnatjur.dbf natjur Regimes \Comuns\sregime.dbf Centros Seg.Social \Comuns\scrss.dbf Nacionalidades \Comuns\snaci.dbf Situa. na Profiss \Comuns\sestado.dbf estado Tabela de IRS \Comuns\sirs.dbf Habilita es Liter \Comuns\shabili.dbf habili Abonos/Faltas/Descontos \Comuns\sabono.dbf abono Profiss \Comuns\sprof.dbf Distritos \Comuns\sdist.dbf distr Concelhos \Comuns\sconce.dbf conce \Comuns\sirt.dbf Categorias \Comuns\scate.dbf Funcion rios * \pessoa\funci funci Recolha de vari veis * \pessoa\recol recol rico * \pessoa\cadas cadastro Movimentos * \pessoa\movim movim Lista de abonos autom ticos * \pessoa\autom autoc Lista de processamentos * \pessoa\proce tproc Independentes * \pessoa\indep indep Locais de pagamento * \pessoa\local local Bancos * \pessoa\banco banco Seguros * \pessoa\segur segur Centros de Custo * \pessoa\custo custo Estabelecimentos * \pessoa\estab estab Freguesias \Comuns\sfreg.dbf Assoc. Patronais \Comuns\wassoc.dbf assoc Ferias * \pessoa\feria ferias Configura es da contabilidade \Comuns\scontab.dbf contab Contratos \Comuns\scont.dbf contrato Informa es do processamento * \pessoa\infop infop Tabela de Alertas \COMUNS\walertas.dbf alertas Tabela de Configura \COMUNS\sconfig.dbf configur TABELAS P_CODEMP P_ANOPROC IDUTIL KEY_1 LOGIN KEY_2 UPPER(IDEMPRESA) KEY_1 UPPER(FIRMA) KEY_2 IDORGAOS KEY_1 KEY_2 IDTOC KEY_1 KEY_2 idempresa+STR(idorgaos) KEY_1 idempresa KEY_EMP ALLTRIM(STR(idutil))+ALLTRIM(opcmenu) KEY_1 login+alltrim(modulo) KEY_1 KEY_1 KEY_2 conta KEY_1 KEY_2 KEY_1 KEY_1 KEY_2 str(ano)+str(codi) KEY_3 KEY_1 KEY_2 idorgaos KEY_ORG KEY_1 artigo KEY_2 b_cod KEY_1 KEY_1 KEY_2 idmoeda KEY_1 KEY_2 tipo_proc KEY_1 tipo_proc+str(ano)+alltrim(str(codbem)) KEY_2 codbem KEY_3 B_ESTADO+STR(B_GRUPO)+STR(B_ANO_AQU)+STR(B_INI_ANO)+STR(B_INI_MES)+STR(ROUND(B_TAXEXE,3))+IIF(B_VAL_LIQ=0 .AND. B_AE=0,'0','1') KEY_5 B_ESTADO+ALLTRIM(B_CONTA)+STR(B_GRUPO)+STR(B_ANO_AQU)+STR(ROUND(IIF(B_TAXA_RV=0,100/B_ANOS,B_TAXA_RV),3)) KEY_6 alltrim(B_CONTA)+STR(B_GRUPO) KEY_7 B_CONTA KEY_8 B_GRUPO KEY_9 B_CENTRO KEY_10 B_ESTADO+ALLTRIM(B_CONTA)+STR(B_GRUPO)+STR(B_ANO_AQU)+STR(B_INI_ANO)+STR(B_INI_MES)+STR(ROUND(B_TAXEXE,3))+IIF(B_VAL_LIQ=0 .AND. B_AE=0,'0','1') KEY_11 B_DESC KEY_2 codigo KEY_1 conta key_1 UPPER(desc) Key_2 Key_3 padr(alltrim(conta),16,'A') Key_4 KEY_1 descricao KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 l_mes KEY_4 l_diario KEY_5 l_docu KEY_6 l_linha KEY_8 str(l_mes,2)+str(l_diario,2)+str(l_docu,6)+str(l_linha,4) KEY_3 descri KEY_2 .NOT.DELETED() KEY_9 chave KEY_1 icodi KEY_1 idesc KEY_2 L_CONTAD KEY_10 L_CONTAC KEY_11 KEY_1 KEY_2 str(coddoc,4)+str(linha,4) KEY_1 conta KEY_1 KEY_1 KEY_2 conta KEY_3 conta KEY_1 conta+dtos(data) KEY_2 KEY_3 pcodi KEY_1 pdesc KEY_2 pprefixo KEY_3 ALLTRIM(modelo)+PADL(ALLTRIM(STR(pagina)),2,'0')+PADL(ALLTRIM(quadro),10,'0')+PADL(ALLTRIM(STR(posicao)),4,'0') KEY_1 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 STR(ano)+STR(tabela)+STR(codi)+STR(ate) KEY_1 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 str(xdistr) + str(codi) KEY_3 KEY_1 KEY_2 KEY_1 KEY_2 str(xirt) + str(codi) KEY_3 KEY_1 KEY_2 str(xfunc)+dtos(mref)+str(xabono) KEY_1 xfunc KEY_1 str(xfunc) + dtos(data) + str(grupo) KEY_2 str(xfunc)+dtos(data) KEY_1 str(xfunc)+str(xabono) KEY_1 xabono KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 KEY_1 KEY_2 str(xdistr) + str(xconce) + str(codi) KEY_3 KEY_1 KEY_2 str(xfunc)+dtos(inicio) KEY_1 KEY_1 KEY_2 str(tipo)+str(codi)+str(abono) KEY_3 KEY_1 KEY_2 str(xproc)+str(xfunc) KEY_1 str(ano)+str(mes)+str(xfunc) KEY_2 dtos(data)+entidade KEY_1 str(grupo)+str(codigo) KEY_1 INDICES\ U_TABELAS E_TABELAS I_TABELAS S_TABELASw _CRIACAO LCCRIACAO EMPRESA MOD_IMO P_IMO C_TABELAS N_TABELAS# A_TABELAS FOR N=1 TO ALEN(&_ARRAY) TABMOD(N,1)=TABELAS[&_ARRAY(N),1] TABMOD(N,2)=TABELAS[&_ARRAY(N),2] TABMOD(N,3)=TABELAS[&_ARRAY(N),3] TABMOD(N,4)=&_ARRAY(N) _ARRAY TABMOD Resid.que exerce a tit.principal activ.comer.,indust.ou agricola Resid.que n o exerce a tit.principal o residente com estabelecimento est o residente sem estabelecimento estavel Mensal Trimestral Isento Geral o definitiva o tempor o de taxa Simplificado Transpar ncia fiscal Grupos de sociedades SNC-PE SNC-ME Administrador Gerente Memb.Cons.Fiscal Sociedades de gest o e investimento imobili rio(art.26 do EBF) (25%) Estabelecimentos de ensino particular(art.47 do EBF) (20%) Juros de dep sitos(CV e SFE) e outros rend. de capitais(CV)(arts.22-A e 25 do EBF) (20%) Microempresas(art.45 da Lei n 87-B/98, de 31 de Dezembro (20%) Incentivos fiscais interioridade(art.46 da Lei n 87-B/98, de 31 de Dezembro) (15%) Estatuto fiscal cooperativo(n 3 do art.7 da Lei 85/98, de 16 de Dezembro) (20%) o aut noma dos A ores(Dec. Leg. Regional n 2/99/A, de 20 de Janeiro) Escudo possivel abrir o ficheiro. Certifique-se que n o existem outros utilizadores na aplica o, e tente novamente. o conseguir solucionar o problema procure a ajuda do seu revendedor. possivel ler o ficheiro. Certifique-se que n o existem outros utilizadores na aplica o, e tente novamente. o conseguir solucionar o problema procure a ajuda do seu revendedor. possivel bloquear o ficheiro. Existem outros utilizadores na aplica necess rio que a fechem, para poder recuperar. Tente novamente. Indisponivel a descri o do ficheiro. O ficheiro est de tal modo danificado que ser muito dif cil a sua recupera Procure a ajuda do seu revendedor ou reponha-o de uma c pia de seguran possivel gravar no ficheiro. Certifique-se que n o existem outros utilizadores na aplica o, e tente novamente. o conseguir solucionar o problema procure a ajuda do seu revendedor. Nome de ficheiro incorrecto. Este erro poder ser devido a um problema na pr pria aplica Contacte o seu revendedor, transmitindo-lhe todas as indica es presentes nesta janela. P_PRINTERS P_TIPOSUJ P_REGIMEIVA P_REGIMETRIB P_REGCONTAB P_TIPORGAO P_REDUCAO PA_MOEDA FIXERROR P_EVEXECS P_EVSERIAL P_EVEXPDATE P_EVNETUSER P_EVNAME P_EVCOMP P_EVLOC P_EVREGDATE P_EVHDLNET P_EVSECSTR PREP_ENTID PREP_MORA PREP_LOCA PREP_POSTAL PREP_TEL PREP_FAX PREP_EMAIL PREP_DISTR PREP_SERIE PREP_DATAnL os Sociais Produ Outros Sectores Activo Inactivo Baixa tempor Baixa prolongada Licen a s/ Vencimento Dirigentes Quadros superiores Quadros m Q.interm d.(enc.contramestres e ch.equipa) Profiss.Altamente qualific. e qualific. Profissionais semiqualificados Profissionais n o qualificados Praticantes / aprendizes Vencimento Base Subs. Alimenta Subs. Alim. G neros Subs. F Subs. Natal Subs. Turno Diuturnidades Retroativos Ajudas de Custo Horas Extra Abono p/ Falhas Gratifica es/Pr Comiss Indemniza rias n o gozadas Trabalho Nocturno o de Hor Outros Abonos \Vencimento Conjugue (Ind.) C Comiss F Subs dio de F N Subs dio de Natal P Remunera es Base (Permanente) X Subs. Caracter Regular N o Mensal A Ajudas Custo, Abonos Viagem, Utiliz.Viatura, Depesas Transp. B Pr mios, B nus e outras Prest. Car cter Mensal 2 Remun.refer.a f rias pagas e n o gozadas por cessa o de contrato 6 Diferen as de Remunera es de Meses Anteriores D Compensa o Cessa o Contrato Trabalho por Acordo H Honor rios por acumula o de Actividade M Subs dios de Car cter Regular Mensal O Pr mios, B nus e outras Presta o Mensais R Subs dio de Refei S Trabalho Suplementar T Trabalho Nocturno I Compensa o Remunerat ria do Contrato Intermitente \A Trabalho Dependente \B Rendimentos Profissionais \B Rendimentos Empresariais \E Outros Rendimentos de Capitais \F Prediais \G Incrementos Patrimoniais \H Pens es \R Reten es de IRC \S Rend.isentos suj. englobamento \EA Capitais (Alin.b, n 2, art CIRS) \EE Saldos Credores C/C \Reten es a Taxas Liberat rias Contrib.obrigat.reg.prot.social Desp.sa de pagas n o reembolsadas \Compensa es de IRS / IRC 101 IRS - Trabalho Dependente 102 IRS - Empresariais e Profissionais 103 IRS - Pens es 104 IRS - Prediais 105 IRS - Capitais (Valores mobil.-Ent. emitentes) 106 IRS - Capitais (Valores mobil.-Ent. regist.,depo., outras) 107 IRS - Capitais (Juros de dep sitos ordem ou a prazo) 115 IRS - Outros Rend. Capitais suj. taxas art 71 do CIRS 109 IRS - Pr mios de jogos, lotarias, rifas, apostas mutuas... 110 IRS - Indemniza es e outros increm. patrimoniais 199 IRS - Juros Compensat rios 201 IRC - Prediais 202 IRC - Comiss es por intermed.em qq contractos e prest.serv. 203 IRC - Capitais (Valores mobil.-Entidades emitentes) 204 IRC - Capitais (Valores mobil.-Ent. regist.,depo., outras) 205 IRC - Capitais (Juros de dep sitos ordem ou a prazo) 206 IRC - Capitais (Outros rendimentos) 207 IRC - Pr mios de jogos, lotarias, rifas, apostas mutuas... 208 IRC - Remuner.de membros de os estatut.de Pess.Colectivas 209 IRC - Fundos de Investimento (art. 22 do EBF) 299 IRC - Juros Compensat rios 301 IS - Aquisi o onerosa ou doa o 302 IS - Arrendamento e subarrendamento 303 IS - Autos e termos 304 IS - Cheques 305 IS - Comodato 306 IS - Dep sito civil 307 IS - Dep sito de outras institui es dos estatutos das assoc. 308 IS - Escritos de quaisquer contratos 309 IS - Explora o / pesquisa / prospec o 310 IS - Garantias das obriga es 311 IS - Jogo 312 IS - Licen as 313 IS - Livros dos comerciantes 314 IS - Marcas e patentes 315 IS - Not rios e actos notariais 316 IS - Opera es aduaneiras 317 IS - Opera es financeiras 318 IS - Precat rios ou mandados 319 IS - Publicidade 320 IS - Registos e averbamentos 321 IS - Reporte 322 IS - Seguros 323 IS - T tulos de cr dito 324 IS - T tulos da d vida publica 325 IS - Vales de correio / telegr ficos 326 IS - Entradas de capital 398 IS - Outros 399 IS - Juros compensat rios 114 IRS - Sobretaxa extraordin ria Cat.H 116 IRS - Rendimentos Capitais suj. taxa do art 101 do CIRS \A Trabalho Dependente \B Rendimentos Profissionais \B Rendimentos Empresariais \E Outros Rendimentos de Capitais \F Prediais \G Incrementos Patrimoniais \H Pens es \R Reten es de IRC \S Rend.isentos suj. englobamento \EA Capitais (Alin.b, n 2, art CIRS) \EE Saldos Credores C/C \Reten es a Taxas Liberat rias Contrib.obrigat.reg.prot.social Desp.sa de pagas n o reembolsadas \Compensa es de IRS / IRC 101 IRS - Trabalho Dependente 102 IRS - Empresariais e Profissionais 103 IRS - Pens es 104 IRS - Prediais 105 IRS - Capitais (Valores mobil.-Ent. emitentes) 106 IRS - Capitais (Valores mobil.-Ent. regist.,depo., outras) 107 IRS - Capitais (Juros de dep sitos ordem ou a prazo) 115 IRS - Outros Rend. Capitais suj. taxas art 71 do CIRS 109 IRS - Pr mios de jogos, lotarias, rifas, apostas mutuas... 110 IRS - Indemniza es e outros increm. patrimoniais 199 IRS - Juros Compensat rios 201 IRC - Prediais 202 IRC - Comiss es por intermed.em qq contractos e prest.serv. 203 IRC - Capitais (Valores mobil.-Entidades emitentes) 204 IRC - Capitais (Valores mobil.-Ent. regist.,depo., outras) 205 IRC - Capitais (Juros de dep sitos ordem ou a prazo) 206 IRC - Capitais (Outros rendimentos) 207 IRC - Pr mios de jogos, lotarias, rifas, apostas mutuas... 208 IRC - Remuner.de membros de os estatut.de Pess.Colectivas 209 IRC - Fundos de Investimento (art. 22 do EBF) 299 IRC - Juros Compensat rios 301 IS - Aquisi o onerosa ou doa o 302 IS - Arrendamento e subarrendamento 303 IS - Autos e termos 304 IS - Cheques 305 IS - Comodato 306 IS - Dep sito civil 307 IS - Dep sito de outras institui es dos estatutos das assoc. 308 IS - Escritos de quaisquer contratos 309 IS - Explora o / pesquisa / prospec o 310 IS - Garantias das obriga es 311 IS - Jogo 312 IS - Licen as 313 IS - Livros dos comerciantes 314 IS - Marcas e patentes 315 IS - Not rios e actos notariais 316 IS - Opera es aduaneiras 317 IS - Opera es financeiras 318 IS - Precat rios ou mandados 319 IS - Publicidade 320 IS - Registos e averbamentos 321 IS - Reporte 322 IS - Seguros 323 IS - T tulos de cr dito 324 IS - T tulos da d vida publica 325 IS - Vales de correio / telegr ficos 326 IS - Entradas de capital 398 IS - Outros 399 IS - Juros compensat rios 114 IRS - Sobretaxa extraordin ria Cat.H 116 IRS - Rendimentos Capitais suj. taxa do art 101 do CIRS 113 IRS - Sobretaxa extraordin ria A Acidente de trabalho B Doen a com baixa D Doen a sem baixa B Baixa do seguro F Falta n o justificada J Falta justificada L Ferias remuneradas M Manh P Dispensa S Suspens T Tarde V Licen a sem vencimento MF Morte pessoa de familia MT Matrim PT Parto SM Servi o militar Acidente de trabalho a profissional certificada a profissional n o certificada o profissional Assist.inadi vel a filho,neto ou agregado familiar De trabalhadores estudantes Falecimento c njuge,parente ou afim Maternidade Paternidade Candidatos a elei es cargos p blicos durante campanha eleitoral e de membros mesas assembleias voto Por greve Exerc cio de fun es de membros de estruturas de representa o colectiva de trabalhadores Ausencias autorizadas ou aprovadas pelo empregador Outras aus ncias justificadas Ausencias injustificadas 1 Empregador 2 TFNR 3 TPCO 4 MACP 8 Situa o Residual 10 C/hor.trab.e adaptabilidade por regul.colectiva 11 C/hor.trab.e adaptabilidade individual 12 C/hor.trab.e adaptabilidade grup.c/origem em regul.colectiva 13 C/hor.trab.e adaptabilidade grup.c/origem em acordos individuais 14 C/hor.trab.e pr tica de banco de horas 15 C/hor.trab.e pr tica de hor rio concentrado 16 C/hor.trab., fora de qualquer das situa es 10,11,12,13,14,15,17,18 20 C/isen.hor rio trab.e observ ncia do periodo normal trab. acordado 21 C/isen.hor rio trab.e observ ncia de um periodo normal trab.aumentado 22 C/isen.hor rio trab.e n o sujei o limites m ximos do periodo normal de trab. 17 C/hor.trab.e pr tica de banco de horas individual 18 C/hor.trab.e pr tica de banco de horas grupal 1 Hor rio trabalho fixo 2 Hor rio trabalho flexivel 3 Hor rio trabalho m 4 Hor rio trab. por turnos fixos 5 Hor rio trab. por turnos rotativos 1 Seguran a Social 2 CGA 3 Banc 8 Outro Regime 1 A tempo completo 2 A tempo parcial 10 Contrato trab. sem termo 11 Contrato trab.p/presta o subord.teletrabalho sem termo 12 Contrato trab. em comiss o de servi o sem termo 13 Contrato trab. intermitente sem termo 14 Contrato trab. por tempo indeterm.p/ced ncia tempor 20 Contrato trab. com termo certo 21 Contrato trab.p/presta.subordinada de teletrab.c/termo certo 22 Contrato trab. em comiss o de servi o com termo certo 23 Contrato trab. tempor rio com termo certo 30 Contrato trab. com termo incerto 31 Contrato trab.p/presta.subordinada de teletrab.c/termo incerto 32 Contrato trab. em comiss o de servi o com termo incerto 33 Contrato trab. tempor rio com termo incerto 80 Outra situa -- Est gio curricular - Excluido do R.U. 01 Filia 02 Portaria de Exten 03 Escolha 04 Acto de Gest \05 N o sabe qual dos IRCT se aplica 06 Sem aplicabilidade 07 Autom 1 Quadros superiores 2 Quadros m 3 Encarregados, contramestres, mestres e chefes equipa 4 Profissionais altamente qualificados 5 Profissionais qualificados 6 Profissionais semi-qualificados (especializados) 7 Profissionais n o qualificados (indiferenciados) 8 Estagi rios, praticantes e aprendizes Janeiro Fevereiro Abril Junho Julho Agosto Setembro Outubro Novembro Dezembro P_SECTOR P_ESTADO P_QUALIFIC P_TPABONO P_TIPOTSU P_REND P_REND_LISTA_RET P_FALTA P_FALTA_RU P_SITUACAO P_TEMPTRAB P_ORGTRAB P_REFORMA P_REGIME_DUR_TRAB P_TIPOCONTRATO P_APLIC_IRCT P_NIVEL_QUALIFIC P_MES MNU_ENTIDADES, ALLTAB ALLINDEX ALLTAB_U ALLTAB_Em ALLTAB_Ip ALLTAB_S ALLTAB_Cd ALLTAB_N ALLTAB_A7 ALLTAB_DO_MODi ADECLARAJ SDECLARAi app1_01 o imcompativel... P_VERSAO APP1_01t PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Screen WINDOWS _S8R0LIUCO 658198611 WINDOWS _S8R0LIUCP 993620375 WINDOWS _S8R0LIUCO 993620375V WINDOWS _S9Y13M2F3 915111526/ WINDOWS _S9Y13M2F6 915111526 COMMENT RESERVED VERSION = 3.00 dataenvironment dataenvironment Dataenvironment YTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" Form1 "Top = 0 Left = 0 Height = 28 Width = 156 Desktop = .F. DoCreate = .T. AutoCenter = .F. BorderStyle = 3 Caption = "Form1" ControlBox = .F. Closable = .F. MinWidth = -1 Visible = .F. ClipControls = .F. DrawStyle = 0 Enabled = .T. TitleBar = 0 WindowType = 1 Name = "Form1" PROCEDURE imprime local frmWait thisform.cxdial.flags = 12 p_cancela = .f. if _serie = .t. if p_impfirsttime ThisForm.cxdial.showprinter p_impcopias = thisform.cxdial.copies p_impflags = thisform.cxdial.flags p_impfirsttime = .f. if p_impflags > 12 and p_impflags # 28 thisform.cxdial.initdir=curdir() thisform.cxdial.filter="Text:(*.TXT)|*.txt" thisform.cxdial.showopen _xfilename= "'" + thisform.cxdial.filename + "'" p_impfilename = _xfilename if file(_xfilename) p_impadicionar = msgadiciona() endif endif endif ThisForm.cxdial.showprinter p_impcopias = thisform.cxdial.copies p_impflags = thisform.cxdial.flags if p_impflags > 12 and p_impflags # 28 thisform.cxdial.initdir=curdir() thisform.cxdial.filter="Text:(*.TXT)|*.txt" thisform.cxdial.showopen _xfilename= "'" + thisform.cxdial.filename + "'" p_impfilename = _xfilename if file(_xfilename) p_impadicionar = msgadiciona() endif endif endif if !empty(_repo) AND !P_CANCELA *----- Cria o form da mensagem "Imprimindo...." ------ if !p_cancela frmWait = createobject("form") frmWait.titlebar = 0 frmWait.height = 45 frmWait.width = 290 frmWait.AddObject("line1", "LINE") frmWait.line1.width = 276 frmWait.line1.left = 7 frmWait.line1.top = 7 frmWait.line1.height = 0 frmWait.line1.bordercolor = rgb(128,128,128) frmWait.line1.visible = .t. frmWait.AddObject("line2", "LINE") frmWait.line2.width = 276 frmWait.line2.left = 7 frmWait.line2.top = 38 frmWait.line2.height = 0 frmWait.line2.bordercolor = rgb(255,255,255) frmWait.line2.visible = .t. frmWait.AddObject("line3", "LINE") frmWait.line3.width = 0 frmWait.line3.left = 7 frmWait.line3.top = 7 frmWait.line3.height = 31 frmWait.line3.bordercolor = rgb(128,128,128) frmWait.line3.visible = .t. frmWait.AddObject("line4", "LINE") frmWait.line4.width = 0 frmWait.line4.left = 283 frmWait.line4.top = 7 frmWait.line4.height = 31 frmWait.line4.bordercolor = rgb(255,255,255) frmWait.line4.visible = .t. frmWait.AddObject("labelx1", "LABEL") frmWait.labelx1.fontsize = 9 frmWait.labelx1.left = 22 frmWait.labelx1.top = 15 if p_impflags > 12 and p_impflags # 28 frmWait.labelx1.caption = "Aguarde um momento! Enviando p/ ficheiro..." else frmWait.labelx1.caption = " Aguarde um momento! Imprimindo...." endif frmWait.labelx1.forecolor = rgb(0,0,0) frmWait.labelx1.autosize = .t. frmWait.labelx1.visible = .t. frmWait.autocenter = .t. frmWait.show if _serie = .t. ThisForm.cmdSerie.click else thisform.cmdNormal.click endif release frmWait endif ENDIF P_CANCELA=.F. thisform.release wait clear ENDPROC PROCEDURE Release ENDPROC PROCEDURE Destroy release _imp, _repo, _expr, _serie, _comando, _xfilename ENDPROC PROCEDURE Init param _REP, _EX, _ser public _REPO, _EXPR, _serie, _comando, _xfilename this.width = 10 if type("_ser")="L" or type("_ser")="U" if _ser = .t. _serie = .t. else _serie = .f. endif endif if type("_ser")="N" if _ser = 1 _serie = .t. else _serie = .f. endif endif _REPO=_REP _EXPR=_EX ENDPROC PROCEDURE SetAll LPARAMETERS cProperty, Value ENDPROC PROCEDURE Activate thisform.hide p_impadicionar = 1 thisform.imprime ENDPROC PROCEDURE Load public p_impcopias p_impcopias = 1 ENDPROC PROCEDURE Unload release p_impcopias ENDPROC TO FILE NOCONS ASCII TO FILE ADDITIVE NOCONS ASCII TO FILE NOCONS ASCII REPORT FORM &_COMANDO TO PRINT NOCONS REPORT FORM &_COMANDO P_IMPFLAGS _XFILENAME P_IMPFILENAME P_IMPCOPIAS _COMANDO _REPO _EXPR P_IMPADICIONAR _COPIAS THISFORM CXDIAL COPIES Click, TO FILE NOCONS ASCII TO FILE ADDITIVE NOCONS ASCII TO FILE NOCONS ASCII REPORT FORM &_COMANDO TO PRINT NOCONS REPORT FORM &_COMANDO P_IMPFLAGS _XFILENAME THISFORM CXDIAL COPIES _COMANDO _REPO _EXPR P_IMPADICIONAR _COPIAS Click, COPIES P_IMPCOPIAS Init, !Arial, 0, 9, 5, 15, 12, 32, 3, 0 PROCEDURE Click IF P_IMPFLAGS > 12 and p_impflags # 28 _xfilename = p_impfilename if !empty(_xfilename) if !file(_xfilename) and p_impcopias = 1 _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII" else do case case p_impadicionar = 1 && Adicionar _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " ADDITIVE NOCONS ASCII" case p_impadicionar = 2 && Substituir _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII" p_impadicionar = 1 case p_impadicionar = 0 && Cancelar _COMANDO = "" endcase endif if !empty(_COMANDO) _asciicols = 180 for _copias=1 to p_impcopias REPORT FORM &_COMANDO endfor endif endif _COMANDO = _REPO + " TO PRINT NOCONS " + _EXPR for _copias=1 to thisform.cxdial.copies REPORT FORM &_COMANDO endfor ENDIF ENDPROC cTop = -1 Left = 48 Height = 27 Width = 22 Caption = "Serie" Visible = .F. Name = "cmdSerie" Form1 cmdSerie commandbutton commandbutton eTop = -1 Left = 27 Height = 27 Width = 21 Caption = "Normal" Visible = .F. Name = "cmdNormal" Form1 cmdNormal *imprime olecontrol olecontrol cxdial Form1 ?Top = -4 Left = -2 Height = 24 Width = 24 Name = "cxdial" 6PROCEDURE Init this.copies = p_impcopias ENDPROC commandbutton commandbutton .OLEObject = C:\WINDOWS\system32\COMDLG32.OCX 28C4C820-401A-101B-A3C9-08002B2F49FB Flags CancelError PROCEDURE Click IF P_IMPFLAGS > 12 and p_impflags # 28 if !empty(_xfilename) if !file(_xfilename) and thisform.cxdial.copies = 1 _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII" else do case case p_impadicionar = 1 && Adicionar _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " ADDITIVE NOCONS ASCII" case p_impadicionar = 2 && Substituir _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII" p_impadicionar = 1 case p_impadicionar = 0 && Cancelar _COMANDO = "" endcase endif if !empty(_COMANDO) _asciicols = 180 for _copias=1 to thisform.cxdial.copies REPORT FORM &_COMANDO endfor endif endif _COMANDO = _REPO + " TO PRINT NOCONS " + _EXPR for _copias=1 to thisform.cxdial.copies REPORT FORM &_COMANDO endfor ENDIF ENDPROC Text:(*.TXT)|*.txt Text:(*.TXT)|*.txt line1 line2 line3 line4 labelx1 LABEL Aguarde um momento! Enviando p/ ficheiro... Aguarde um momento! Imprimindo.... FRMWAIT THISFORM CXDIAL FLAGS P_CANCELA _SERIE P_IMPFIRSTTIME SHOWPRINTER P_IMPCOPIAS COPIES P_IMPFLAGS INITDIR FILTER SHOWOPEN _XFILENAME FILENAME P_IMPFILENAME P_IMPADICIONAR MSGADICIONA _REPO TITLEBAR HEIGHT WIDTH ADDOBJECT LINE1 BORDERCOLOR VISIBLE LINE2 LINE3 LINE4 LABELX1 FONTSIZE CAPTION FORECOLOR AUTOSIZE AUTOCENTER CMDSERIE CLICK CMDNORMAL RELEASE _REPO _EXPR _SERIE _COMANDO _XFILENAME _serb _serb _serb _REPO _EXPR _SERIE _COMANDO _XFILENAME WIDTH CPROPERTY VALUE$ THISFORM P_IMPADICIONAR IMPRIME P_IMPCOPIAS P_IMPCOPIAS imprime, Releasea Destroyh SetAll Activate/ Unload PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Screen WINDOWS _S8U0NPOD9 658397304 WINDOWS _S8U0NPODA 747345976 COMMENT RESERVED VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment" FRMFORM_PREVIEW Top = 0 Left = 0 Height = 574 Width = 793 DoCreate = .T. Caption = "Visualiza Visible = .F. WindowState = 2 Name = "FRMFORM_PREVIEW" 3PROCEDURE Init oForm_preview=thisform ENDPROC OFORM_PREVIEW THISFORM Init, !Arial, 0, 9, 5, 15, 12, 32, 3, 0 PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 COMMENT Screen WINDOWS _0F50NAVYM 719017609 WINDOWS _0F50NAVYN 808813729 WINDOWS _0F50ODQ5B 719020331 WINDOWS _0F50NAVYM 808813729a WINDOWS _0F50PISVJ 719021142Y WINDOWS _0F50PISVK 719025405u COMMENT RESERVED VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment" fgtransf_3 Height = 307 Width = 347 DoCreate = .T. AutoCenter = .T. Caption = "Explorador" ControlBox = .F. FontSize = 8 WindowType = 1 Name = "fgtransf_3" PROCEDURE Init lparam _titulo, _mensagem, _pathinicial, _file this.caption = _titulo this.label1.caption = _mensagem this.list1.rowsource = _pathinicial this.chose_file = _file ENDPROC PRT_CHOSEDIR_RESULTADO THISFORM RELEASE Click, !Arial, 0, 8, 5, 14, 11, 29, 3, 0 fgtransf_3 Label1 label label fgtransf_3 chose_file listbox listbox List1 fgtransf_3 tFontSize = 8 RowSourceType = 7 RowSource = "c:\" Height = 240 Left = 11 Top = 29 Width = 324 Name = "List1" commandbutton commandbutton Command1 fgtransf_3 gTop = 277 Left = 92 Height = 25 Width = 80 FontSize = 8 Caption = "\PROCEDURE Click prt_result = 0 thisform.release ENDPROC ^Top = 80 Left = 191 Height = 25 Width = 80 FontSize = 8 Caption = "" Name = "Command2" Form1 Command2 commandbutton commandbutton oPicture = ..\icons\scdcncll.ico BackStyle = 0 Height = 32 Left = 15 Top = 24 Width = 32 Name = "Image1" Form1 Image1 image image lFontSize = 8 WordWrap = .T. Caption = "" Height = 30 Left = 64 Top = 25 Width = 303 Name = "Label1" Form1 Label1 label label >PROCEDURE Click prt_result = 1 thisform.release ENDPROC Form1 Command1 commandbutton commandbutton ^Top = 80 Left = 107 Height = 25 Width = 80 FontSize = 8 Caption = "" Name = "Command1" O registo em causa est a ser acedido por outro utilizador.C Poder tentar novamente ou desistir da opera \