Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001VEC - Atualização de campos
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
 Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), com a finalidade de atualizar os campos após a gravação do VEC (Gerencial).
Eventos
 User Function VX021AGA()
cCodB1 = ParamIXB[1]
dDatVen := ParamIXB[2]
cTes := ParamIXB[3]
nBaseICM := ParamIXB[4]
nQtdIte := ParamIXB[5]
cArqTra := ParamIXB[6]
 
MsgInfo(“Ponto de Entrada VX021AGA”,”Atencao”)
return nil
 
Programa Fonte 
OFIXX001.PRW e OFIXFUNA.PRW.
Sintaxe

OX001VEC - Atualização de campos ( [ cCodB1 ], [ dDatVen ], [ cTes ], [ nBaseICM ], [ nQtdIte ], [ cArqTra ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cCodB1 Caracter Código da Peça
dDatVen Array of Record Data da Venda
cTes Array of Record Tipo de Entrada/Saida
nBaseICM Array of Record Base de Icm
nQtdIte Array of Record Quantidade
cArqTra Array of Record ParamIXB[6]
Retorno
    ()
Observações
 VEC_DESVAR := VEC_COMVEN + VEC_COMGER
VEC_LUCLIQ := VEC_LUCBRU - VEC_JUREST - VEC_DESVAR - VEC_DESDEP - VEC_DESADM - VEC_DESFIX
VEC_DESFIX := 0
VEC_CUSFIX := 0
VEC_DESDEP := 0
VEC_DESADM := 0
VEC_RESFIN := 0
VEC_BALOFI := "B" //Balcao
VEC_DEPVEN := ""
VEC_TIPTEM := ""  //Gravar qdo Ordem de Servico
VEC_NUMOSV := ""  //Gravar qdo Ordem de Servico
VEC_RESFIN := VEC_LUCLIQ - VEC_CUSFIX
VEC_NUMNFI := ""
 
VEC_VALBRU := VEC_VALVDA + VEC_VALDES
VEC_VMFBRU := FG_CALCMF( { {dDataBase,VEC_VALBRU} })
VEC_VMFVDA := VEC_VMFBRU - FG_CALCMF( {{dDataBase,VEC_VALDES}} )
VEC_VMFICM := FG_CALCMF( { {FG_RTDTIMP("ICM",dDataBase),VEC_VALICM} })
VEC_VMFPIS := FG_CALCMF( { {FG_RTDTIMP("PIS",dDataBase),VEC_VALPIS} })
VEC_VMFCOF := FG_CALCMF( { {FG_RTDTIMP("COF",dDataBase),VEC_VALCOF} })
VEC_TMFIMP := VEC_VMFICM + VEC_VMFCOF + VEC_VMFPIS
VEC_CMFMED := FG_CALCMF( { {dDataBase,VEC_CUSMED} })
VEC_JMFEST := FG_CALCMF( { {dDataBase,VEC_JUREST} })
VEC_CMFTOT := VEC_CMFMED + VEC_JMFEST
VEC_LMFBRU := VEC_VMFVDA - VEC_TMFIMP - VEC_CMFTOT
 
VEC_CMFVEN := FG_CALCMF( { {FG_RTDTIMP("PIS",dDataBase),VEC_COMVEN} })
VEC_CMFGER := FG_CALCMF( { {FG_RTDTIMP("PIS",dDataBase),VEC_COMGER} })
 
VEC_DMFVAR := VEC_CMFVEN + VEC_CMFGER
VEC_LMFLIQ := VEC_LMFBRU - VEC_DMFVAR
VEC_DMFFIX := 0
VEC_CMFFIX := 0
VEC_CMFDEP := 0
VEC_DMFADM := 0
VEC_RMFFIN := VEC_LMFLIQ - VEC_DMFFIX - VEC_CMFFIX - VEC_DMFDEP - VEC_DMFADM
 
dbSelectArea("TRB")
MsUnlock()
 
If ExistBlock("OX001VEC") // Ponto de Entrada para Atualizacao dos campos referentes ao ST (VEC_ICMSST + VEC_DCLBST + VEC_COPIST)
ExecBlock("OX001VEC",.f.,.f.,{SB1->B1_COD,VEC_DATVEN,oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_CODTES","aHeaderP")],nBaseIcm,VEC_QTDITE,"TRB"})
EndIf
 
dbSelectArea("VS5")
FG_Seek("VS5","cCodMap",1,.f.)
 
dbSelectArea("VOQ")
FG_Seek("VOQ","cCodMap",1,.f.)
 
while !eof() .and. VOQ->VOQ_FILIAL == xFilial("VOQ")
 
if VOQ_INDATI # "1" && Sim
dbSkip()
Loop
Endif
 
if VOQ_CODMAP # cCodMap
Exit
Endif
 
cDescVOQ :=if(VOQ->VOQ_ANASIN#"0",Space(7)+VOQ_DESAVA,VOQ_DESAVA)
 
aadd(aStru,{ VS1->VS1_NUMORC,,SB1->B1_COD,VOQ_CLAAVA,cDescVOQ,VOQ_ANASIN,;
VOQ_CODIGO,VOQ_SINFOR,0,0,SB1->B1_CODITE,0,0,.f.,VOQ->VOQ_PRIFAI,;
VOQ->VOQ_SEGFAI,VOQ_FUNADI,VOQ_CODIMF,VS1->VS1_DATORC,0,0,VOQ_CTATOT})
 
dbSkip()
 
Enddo
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não