Perguntas Erro execauto loja701

Pessoal, Boa Tarde!

Estou tentando implantar o msexecauto para o controle de loja, mas sempre apresenta um erro tosco em LR_QUANT.

Alguém ai já passou por isso?


O erro apresentado é esse abaixo.

Tabela SLQ 29/08/13 13:30:57
Cond Pgto - LQ_CONDPG := 001
ORCA FAT - LQ_ZORCFAT := 002024
Filial - LQ_FILIAL := 04
No Orcamento - LQ_NUM := 002045
Vendedor - LQ_VEND := 026
Cliente - LQ_CLIENTE := C01249
Loja Cliente - LQ_LOJA := 01
Tipo Cliente - LQ_TIPOCLI := F
Vlr.Total - LQ_VLRTOT := 1
Vlr.Liquido - LQ_VLRLIQ := 1
Comissao - LQ_COMIS := 0
Dt.Validade - LQ_DTLIM := 20130829
Dt.Emissao - LQ_EMISSAO := 20130829
Vl.Bruto NF - LQ_VALBRUT := 1
Vlr.Desconto - LQ_DESCONT := 0
No Pd.Clien. - LQ_NROPCLI :=
Num Cup Fis. - LQ_NUMCFIS := 000009
Serie - LQ_SERIE := EC4
Vlr. Crt Deb - LQ_VLRDEBI := 0
Hora - LQ_HORA :=
Movimento - LQ_NUMMOV := 1

---

Tabela SLR 29/08/13 13:30:57
Erro no Item 1

---

Armazem - LR_LOCAL := 350
ORC FAT - LR_ZORCFAT := 002024
Descricao - LR_DESCRI := OVO INDUSTRIAL TR BAND POLPA 3
Filial - LR_FILIAL := 04
No Orcamento - LR_NUM := 002045
Produto - LR_PRODUTO := 060660110503
Item - LR_ITEM := 01
Quantidade - LR_QUANT := 1 < -- Invalido
Preco Unit. - LR_VRUNIT := 1
Vlr.Item - LR_VLRITEM := 1
Unidade - LR_UM := CX
Desconto - LR_DESC := 0
Valor Desc - LR_VALDESC := 0
Tipo E/S - LR_TES := 501
Dt Emissao - LR_EMISSAO := 20130829
Grade - LR_GRADE := N
Tabela Preco - LR_TABELA := 1
Vendedor - LR_VEND := 026
PRECO SOMAI - LR_ZPRSOMA := 1
Frete Somai - LR_ZFRETSO := 0
Nota NF - LR_DOC := 000009
Serie NF - LR_SERIE := EC4
Numero PDV - LR_PDV := 0001
Desc.Proporc - LR_DESCPRO := 0
Erro --> Ocorreu um erro durante a validacao:
invalid typecast in file c:\advtec9\advpl\instrvar.inl at line 875
on LJ950SP10OK line : 1571
Called from LJ7VLITEM line : 1556
Called from EVALVALID line : 1103
Called from MSGETDAUTO line : 626
Called from LJ7VENDA line : 4014
Called from { |a,b,c,d,e,f,g,h,i,j,k| Lj7Venda(a,b,c,d,e,f,g,h,i,j,k) } line : 400
Called from eval line : 402
Called from LOJA701 line : 402
Called from {|A,B,C,D,E,F,G,H| LOJA701(A,B,C,D,E,F,G,H)} line : 113
Called from eval line : 4602
Called from MSEXECAUTO line : 4602
Called from U_A415TDOK line : 113
Called from EXECBLOCK line : 160
Called from A415TUDOK line : 2370
Called from { |x| A415TudOk(x)} line : 528
Called from eval line : 528
Called from TUDOOK line : 528
Called from {||NOPCA:=1,IIF(OGETDB:TUDOOK() .AND. OBRIGATORIO(AGETS,ATELA) .AND. A415VLDTOK(@LBLOQUEIA),ODLG:END(),NOPCA:=0)} line : 271
Called from eval line : 6639
Called from SAFEEVAL line : 6639
Called from {|| ( LOKOK:=IF(LMESSAGEDEL,IIF(FINDFUNCTION("APMSGYESNO"), APMSGYESNO(OEMTOANSI(IF( CPAISLOC $ "ANG|PTG", "CONFIRMAR A EXCLUSãO ?", "CONFIRMA A EXCLUSAO ?" )), OEMTOANSI("ATENçãO")), (CMSGYESNO:="MSGYESNO", &CMSGYESNO.(OEMTOANSI(IF( CPAISLOC $ "ANG|PTG", "CONFIRMAR A EXCLUSãO ?", "CONFIRMA A EXCLUSAO ?" )), OEMTOANSI("ATENçãO")))), .T. ),LOK:=IF(LOKOK,(REGOTO(NREG,CALIAS),SAFEEVAL(BOK)), .F. ),EVALRETOK(LOK,NBAR),IF(TYPE("INCLUI") = "L" .AND. __NNIVELBAR == 0 .AND. (VALTYPE(LOK) <> "L" .OR. LOK),__LLOOP := INCLUI,)) } line : 1365
Called from eval line : 318
Called from {|| EVAL(BOK) } line : 318
Called from ACTIVATE line : 0
Called from A415INCLUI line : 271
Called from EXECUTE line : 1045
Called from { || OSELF:EXECUTE("A415INCLUI", 3, 0,"INCLUIR", 3,"","INCLUIR","", 3) } line : 177
Called from eval line : 177
Called from {|| If( lClick, ( lClick := .F., eval({ || OSELF:EXECUTE("A415INCLUI", 3, 0,"INCLUIR", 3,"","INCLUIR","", 3) }), lClick := .T., ), "")} line : 177
Called from ACTIVATE line : 0
Called from ACTIVATE line : 598
Called from FWMBROWSE line : 11489
Called from MBROWSE line : 155
Called from MATA415 line : 124
Called from __EXECUTE line : 571
Called from FWPREEXECUTE line : 65
Called from {||FWPreExecute('Orcamento', 'MATA415()', 1, '05', 'xxxxxxxxxx') } line : 345
Called from ACTIVATE line : 0
Called from ACTIVATE line : 529
Called from SIGALOJA line : 223

---

HELP: HELP
Erro validação Lj7LinOk

Boa tarde Henry,

o que tu pode fazer é debugar a rotina e quando chegar no LR_QUANT você verifica com o comando ValType() qual o retorno da sua variável para ver se é o mesmo correspondente ao do banco.


Att
Thales