Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 6 minutos


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Estoque e Custos (SIGAEST)

Função:ACDI010 - IMPRESSÃO DE ETIQUETAS DE PRODUTO
País:Todos


02. DESCRIÇÃO

LOCALIZAÇÃO: Function ACDI010- Função da rotina de Impressao de etiquetas de produto.

EM QUE PONTO: O Ponto de entrada é executado no fim da função ACDI10PR, pode ser utilizado para manipular os dados do produtos.

03. DEMAIS INFORMAÇÕES

PARÂMETROS

Nome

Tipo

Descrição

PARAMIXB[1]NuméricoQuantidade por Embalagem
PARAMIXB[2]CaracterCódigo da Ordem Separação
PARAMIXB[3]CaracterCódigo da Etiqueta
PARAMIXB[4]NuméricoQuantidade de Etiquetas a serem impressas
PARAMIXB[5]CaracterNota Fiscal Entrada
PARAMIXB[6]CaracterSérie da Nota Fiscal Entrada
PARAMIXB[7]CaracterFornecedor
PARAMIXB[8]CaracterLoja do Fornecedo
PARAMIXB[9]CaracterArmazém
PARAMIXB[10]CaracterOrdem de Produção
PARAMIXB[11]CaracterNúmero Seqüencial da OP
PARAMIXB[12]CaracterLote
PARAMIXB[13]CaracterSubLote
PARAMIXB[14]DataValidade do Lote
PARAMIXB[15]CaracterCentro Custo
PARAMIXB[16]CaracterAlmoxarifado Original


RETORNO

Não se aplica


EXEMPLO DE UTILIZAÇÃO ADVPL

IMG01(ADVPL)
#include "PROTHEUS.ch"

User Function IMG01()

    Local nX        := 0
    Local nqtde 	:= If(len(paramixb) >= 1,paramixb[ 1],NIL)
    Local cCodSep 	:= If(len(paramixb) >= 2,paramixb[ 2],NIL)
    Local cCodID 	:= If(len(paramixb) >= 3,paramixb[ 3],NIL)
    Local nCopias	:= If(len(paramixb) >= 4,paramixb[ 4],0)
    Local cNFEnt  	:= If(len(paramixb) >= 5,paramixb[ 5],NIL)
    Local cSeriee   := If(len(paramixb) >= 6,paramixb[ 6],NIL)
    Local cFornec   := If(len(paramixb) >= 7,paramixb[ 7],NIL)
    Local cLojafo   := If(len(paramixb) >= 8,paramixb[ 8],NIL)
    Local cArmazem  := If(len(paramixb) >= 9,paramixb[ 9],NIL)
    Local cOP       := If(len(paramixb) >=10,paramixb[10],NIL)
    Local cNumSeq   := If(len(paramixb) >=11,paramixb[11],NIL)
    Local cLote     := If(len(paramixb) >=12,paramixb[12],NIL)
    Local cSLote    := If(len(paramixb) >=13,paramixb[13],NIL)
    Local cCC  	    := If(len(paramixb) >=15,paramixb[15],NIL)
    Local cLocOri   := If(len(paramixb) >=16,paramixb[16],NIL)
    Local nResto    := If(len(paramixb) >=22,paramixb[22],0)

    If nResto > 0 
        nCopias++
    EndIf

    For nX := 1 to nCopias
        If cCodID#NIL
            CBRetEti(cCodID)
            nqtde 	    := CB0->CB0_QTDE
            cCodSep     := CB0->CB0_USUARI
            cNFEnt      := CB0->CB0_NFENT
            cSeriee     := CB0->CB0_SERIEE
            cFornec     := CB0->CB0_FORNEC
            cLojafo     := CB0->CB0_LOJAFO
            cArmazem    := CB0->CB0_LOCAL
            cOP         := CB0->CB0_OP
            cNumSeq     := CB0->CB0_NUMSEQ
            cLote       := CB0->CB0_LOTE
            cSLote      := CB0->CB0_SLOTE
            cCC         := CB0->CB0_CC
            cLocOri     := CB0->CB0_LOCORI
        EndIf
    Next

    FWAlertWarning(nqtde)

return


04. ASSUNTOS RELACIONADOS

  • Não se aplica