Code Block | ||
---|---|---|
| ||
var vDM: TDm_IntRecebimento_Server; |
v_DataNF : OleVariant; |
begin |
try |
vDM := TDm_IntRecebimento_Server.Create(Self); |
vDM.CL_Recebimento_Imp_.Close; |
vDM.JnCl_ItensReceb_Imp_.Close; |
vDM.CL_LotesVinculados_Imp_.Close; |
vDM.CL_ItensReceb_CCF_Imp_.Close; |
vDM.CL_ItensReceb_Proj_Imp_.Close; |
vDM.Cl_ParcelasFin_Imp_.Close; |
vDM.Cl_RecPedidosReceb_Imp_.Close; vDM.Cl_ProcessoAdmJudReceb_Imp_.Close; vDM.CL_Recebimento_Imp_.CreateDataSet; |
vDM.JnCl_ItensReceb_Imp_.Open; |
vDM.CL_LotesVinculados_Imp_.CreateDataSet; |
vDM.CL_ItensReceb_CCF_Imp_.CreateDataSet; |
vDM.CL_ItensReceb_Proj_Imp_.CreateDataSet; |
vDM.Cl_ParcelasFin_Imp_.CreateDataSet; vDM.Cl_RecPedidosReceb_Imp_.CreateDataSet; Cl_ProcessoAdmJudReceb_Imp_.CreateDataSet; |
vDM.CL_Recebimento_Imp_.Insert; |
vDM.JnCl_ItensReceb_Imp_.Insert; |
v_DataNF := VarArrayCreate([0, |
14, 0, |
1], varVariant); |
//PES-133 //PFIS-2631 v_DataNF[0 ,0] := |
Cl_NotaFiscal_ .Data; v_DataNF[1 ,0] := JnCl_ItemNotaFiscal_ .Data; v_DataNF[ |
2 ,0] := |
Cl_ItemNotaEstoque_ .Data; v_DataNF[3 ,0] := Cl_DeclaracaoImpItemNF_ .Data; v_DataNF[ |
4 ,0] := |
Cl_ObservacaoNF_ .Data; v_DataNF[5 ,0] := Cl_VolumeNF_ .Data; v_DataNF[ |
6 ,0] := |
CL_GeraParcelas_ .Data; v_DataNF[7 ,0] := Cl_DeclaracaoImp_ .Data; v_DataNF[ |
8 ,0] := |
Cl_ItemPed_ItemNot_NOT_ .Data; v_DataNF[9 ,0] := Cl_DocVinculados_ .Data; v_DataNF[10,0] := Cl_NotasVinculadas_ .Data; v_DataNF[ |
11,0] := |
Cl_DeclaracaoExp_ .Data; v_DataNF[12,0] := Cl_CTeEmissao_ .Data; v_DataNF[13,0] := CL_ItemNotaFiscalNVE_ .Data; v_DataNF[14,0] := CL_ItemNotaFiscalCredPres_.Data; |
vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1); |
finally |
FreeAndNil(vDM); |
end; |