Ponto-de-Entrada: TM141END - Monta o Vetor aEndEstoque
| Abrangências: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de entrada utilizado para montar o vetor aEndEstoque, quando não existe registros na tabela DTC para montar a viagem.
Programa Fonte
TMSA141.PRW
Sintaxe
TM141END - Monta o Vetor aEndEstoque ( [ (cAliasNew)->DUD_FILDOC ], [ (cAliasNew)->DUD_DOC ], [ (cAliasNew)->DUD_SERIE ] ) --> aEndEstoque
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| (cAliasNew)->DUD_FILDOC | Caracter | Filial do Documento | |||||||||||||||
| (cAliasNew)->DUD_DOC | Array of Record | Número do Documento | |||||||||||||||
| (cAliasNew)->DUD_SERIE | Array of Record | Série do Documento |
Retorno
-
aEndEstoque(array_of_record)
Exemplos
User Function TM141END()Local cFil := PARAMIXB[1]Local cDoc := PARAMIXB[2]Local cSerie:= PARAMIXB[3]Local aArea:= GetArea()Local aEnd := {} Aviso('Ponto Entrada TM141END','',{'OK'}) DT6->(DbSetOrder(1))DT6->(MsSeek(xFilial("DT6")+cFil+cDoc+cSerie)) nPos := aScan(aEnd,{|x| x[1]+x[2]== Space(08)})IF nPos == 0 Aadd(aEnd,{Space(02),Space(06),DT6->DT6_QTDVOL,DT6->DT6_PESO,DT6->DT6_PESOM3, DT6->DT6_VALMER })Else aEnd[nPos,3] += DT6->DT6_QTDVOL aEnd[nPos,4] += DT6->DT6_PESO aEnd[nPos,5] += DT6->DT6_PESOM3 aEnd[nPos,6] += DT6->DT6_VALMEREndIF RestArea(aArea)Return aEnd
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |