Estou tentando executar a rotina automatica, mas o sistema me retorna um erro tratado, a seguir o codigo e a mensagem de erro:
aAdd (aSC7, {"C7_FILENT" , xFilial('SC7') , Nil})
aAdd (aSC7, {"C7_NUM" , str(nI) , Nil})
aAdd (aSC7, {"C7_FORNECE", "123 " , Nil})
aAdd (aSC7, {"C7_LOJA" , "1 " , Nil})
aAdd (aSC7, {"C7_COND" , "1 " , Nil})
aAdd (aSC7, {"C7_EMISSAO", "20100518" , Nil})
aAdd (aSC7, {"C7_CONTATO", "ND" , Nil})
aAdd (aSC7It, {"C7_ITEM" , "0001" , Nil})
aAdd (aSC7It, {"C7_PRODUTO", "123 " , Nil})
aAdd (aSC7It, {"C7_QUANT" , 1,00 , Nil})
aAdd (aSC7It, {"C7_PRECO" , 1,00 , Nil})
aAdd (aSC7It, {"C7_TOTAL" , 1,00 , Nil})
aAdd (aSC7It, {"C7_VLDESC" , 0,00 , Nil})
aAdd (aSC7It, {"C7_IPI" , 0,00 , Nil})
aAdd (aSC7It, {"C7_QUJE" , 0,00 , Nil})
aAdd (aSC7It, {"C7_PICM" , 12,00 , Nil})
aAdd (aSC7It, {"C7_TES" , "100" , Nil})
aAdd (aSC7It, {"C7_DATPRF" , "20100518" , Nil})
aAdd (aSC7It, {"C7_OBS" , "ND" , Nil})
aAdd (aSC7It, {"C7_CONAPRO", "L" , Nil})
aAdd (aSC7It, {"C7_LOCAL" , "01" , Nil})
aAdd (aSC7It, {"C7_IPIBRUT", "B" , Nil})
aAdd (aSC7It, {"C7_BASEICM", 0,00 , Nil})
aAdd (aSC7It, {"C7_PENDEN", "N" , Nil})
aAdd(aSC7ItAux,aSC7It)
Mensagem:
HELP: A12006
Existem campos obrigatórios que não
foram informados.
Tabela SC7 19/05/10 10:23:40
Filial Entr. - C7_FILENT := 01
Numero PC - C7_NUM := 1
Fornecedor - C7_FORNECE := 123
Loja - C7_LOJA := 1
Cond. Pagto - C7_COND := 1
DT Emissao - C7_EMISSAO := 20100518
Contato - C7_CONTATO := ND
--------------------------------------------------------------------------------
Tabela SC7 19/05/10 10:23:40
Erro no Item 1
--------------------------------------------------------------------------------
Item - C7_ITEM := 0001
Produto - C7_PRODUTO := 123
Quantidade - C7_QUANT := 1
Prc Unitario - C7_PRECO := 1
Vlr.Total - C7_TOTAL := 1
Vl. Desconto - C7_VLDESC := 0
Aliq. IPI - C7_IPI := 0
Qtd.Entregue - C7_QUJE := 0
Aliq.ICMS - C7_PICM := 12
Tipo Entrada - C7_TES := 100
Dt. Entrega - C7_DATPRF := 20100518
Observacoes - C7_OBS := ND
Controle Ap. - C7_CONAPRO := L
Armazem - C7_LOCAL := 01
Cons. Desc. - C7_IPIBRUT := B
Base Icms - C7_BASEICM := 0
Pendente - C7_PENDEN := N
Erro --> Inconsistencia na Linha de Itens
--------------------------------------------------------------------------------
Obrigado!
--
Bruno Beltrão
Bacharel em Sistemas de Informação
Desenvolvedor (ADVPL, Delphi, Java)
João Pessoa - PB
Tel: (83)8804-3207 / (83)3247-5469
Email:
brunol...@gmail.com
Você está recebendo esta mensagem porque se inscreveu no grupo "advpl" dos Grupos do Google.
.
.