
/*------ ATD 325855 ------*/

---BEMATECH
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (26674, '181', 1, '''"'' + Left(TrataPagto(Documen.OID,.T.),16) + ''"'' + '','' + ''"'' + StrZero(Left(Str(nValParc,15,2),12) + Right(Str(nValParc,15,2),2),14) + ''"'' + '',''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (26674, '181', 2, '+ ''"'' + gcDescricaoFormaPagto + ''"''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (26674, '181', 3, 'ImpCmd(''Bematech_FI_EfetuaFormaPagamentoDescricaoForma(&cCmdAux)'')', 0)

---DARUMA
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 1, '''"'' + Alltrim(Left(Documen->Documen,20)) + ''"'' + '',''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 2, '+ ''"'' + StrZero(Left(Str(nValParc,15,2),12) + Right(Str(nValParc,15,2),2),14) + ''"'' + '',''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 3, '+ ''"'' + gcDescricaoFormaPagto + ''"''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 4, 'ImpCmd(''Daruma_FI_EfetuaFormaPagamentoDescricaoForma(&cCmdAux)'')', 0)
/*------ ATD 325855 ------*/

---BEMATECH
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (26674, '181', 1, '''"'' + Left(TrataPagto(Documen.OID,.T.),16) + ''"'' + '','' + ''"'' + StrZero(Left(Str(nValParc,15,2),12) + Right(Str(nValParc,15,2),2),14) + ''"'' + '',''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (26674, '181', 2, '+ ''"'' + gcDescricaoFormaPagto + ''"''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (26674, '181', 3, 'ImpCmd(''Bematech_FI_EfetuaFormaPagamentoDescricaoForma(&cCmdAux)'')', 0)

---DARUMA
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 1, '''"'' + Alltrim(Left(Documen->Documen,20)) + ''"'' + '',''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 2, '+ ''"'' + StrZero(Left(Str(nValParc,15,2),12) + Right(Str(nValParc,15,2),2),14) + ''"'' + '',''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 3, '+ ''"'' + gcDescricaoFormaPagto + ''"''', 1)
INSERT INTO FORCFFISFAT (Codimp, Codigo, Ordem, String, Somar) VALUES (31413, '181', 4, 'ImpCmd(''Daruma_FI_EfetuaFormaPagamentoDescricaoForma(&cCmdAux)'')', 0)