Code Block |
---|
var |
...
vDM: TDm_IntRecebimento_Server; |
...
v_DataNF : OleVariant; |
...
begin |
...
try |
...
vDM := TDm_IntRecebimento_Server.Create(Self); |
...
vDM. CL_NotaCompl_Imp_.Close; |
...
vDM. CL_NotaItemCompl_Imp_.Close; |
...
vDM. CL_NotaCompl_Imp_.CreateDataSet; |
...
vDM. CL_NotaItemCompl_Imp_.CreateDataSet; |
...
vDM. CL_NotaCompl_Imp_.Insert; |
...
vDM. CL_NotaItemCompl_Imp_.Insert; |
...
v_DataNF := VarArrayCreate([0, 1, 0, 0], varVariant); |
...
v_DataNF[0,0] := vDM.CL_NotaCompl_Imp_.Data; |
...
v_DataNF[1,0] := vDM. CL_NotaItemCompl_Imp_.Data; |
...
vDM. IntegrarNotaComplementar ('P', v_DataNF, RDMUsuario, '', -1); |
...
finally |
...
FreeAndNil(vDM); |
...
end; |
...
end; |