Histórico da Página

...

Aviso
Para un mejor performance, deberá configurar en la TES el impuesto, para que el cálculo sea por ítem (FC_CALCULO = I). Esta configuración aplica para los impuestos IVA, RV0, ICA, RF0 y ARC.

Nota
Se recomienda aplicar el paquete de actualización de expedición continua, para mantener actualizado el sistema.

Totvs custom tabs box

tabs	Configuraciones previas, Flujo de prueba, Ejemplo rutina automática
ids	paso1,paso2,paso3

Totvs custom tabs box items

default	yes
referencia	paso1

Desarrollar y compilar la rutina automática para la generación automática de pedidos de compra, ver sección "Ejemplo rutina automática".
Configurar el menú para esta rutina, dentro del módulo Configurador (SIGACFG) | Entorno| Menús, agregar la opción en el menú para el módulo de Compras (SIGACOM).
En la rutina de Productos (SIGACOM >> Actualizaciones | Archivos), registre un producto.
En la rutina de Proveedores (SIGACOM >> Actualizaciones | Archivos), registre un proveedor, informando los campos obligatorios, adaptando la información según sean sus necesidades.
En la rutina de Imp. Variables (SIGACOM >> Actualizaciones | Archivos), configurar los impuestos necesarios.
1. Para mayor información para la configuración de la retención del ICA (RC0), consulte el apartado 05. ASUNTOS RELACIONADOS.
En la rutina de Tipos de Entrada Y Salida (SIGACOM >> Actualizaciones | Archivos), configure una TES de entrada con los impuestos deseados.

Totvs custom tabs box items

default	no
referencia	paso2

Dentro del módulo Compras (SIGACOM), acceder a la opción del menú creado para la rutina automática y esperar la ejecución.
1. Verificar que el tiempo de ejecución tuvo una mejora en comparación con las ejecuciones anteriores.
Al finalizar la ejecución, acceder a la rutina de Pedidos de Compra (SIGACOM), confirme que el pedido fue generado correctamente.
1. Validar el cálculo de los impuestos configurados.

Totvs custom tabs box items

default	no
referencia	paso3

Bloco de código

language	js
theme	Eclipse

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function MyMATA120()

Local aCabec  := {}
Local aItems  := {}
Local aLinha  := {}
Local cNumPc  := ""
Local cTES    := ""
Local nX      := 0

Private lMsErroAuto := .F.

    cFornece := FWInputBox("Proveedor: ", "") //Proveedor
    cNumPc   := FWInputBox("Num Doc: ", "") //Num Doc
    cTES     := FWInputBox("TES: ", "") //TES

    ConOut("Inicio de Ejecucción MYMT120: "+GetRmtTime())
    
    aCabec := {}
    aAdd(aCabec, {"C7_EMISSAO", dDataBase                                        , NIL})
    aAdd(aCabec, {"C7_FILIAL" , PADR(ALLTRIM(cFilAnt) ,TamSX3("C7_FILIAL")[1] )  , NIL})
    aAdd(aCabec, {"C7_NUM"    , PADR(ALLTRIM(cNumPc) ,TamSX3("C7_NUM")[1] )      , NIL})
    aAdd(aCabec, {"C7_FORNECE", PADR(ALLTRIM(cFornece) ,TamSX3("C7_FORNECE")[1] ), NIL})
    aAdd(aCabec, {"C7_LOJA"   , PADR(ALLTRIM("01") ,TamSX3("C7_LOJA")[1] )       , NIL})
    aAdd(aCabec, {"C7_COND"   , "001"                                            , NIL})
    aAdd(aCabec, {"C7_CONTATO", PADR(ALLTRIM("") ,TamSX3("C7_CONTATO")[1] )      , NIL})
    aAdd(aCabec, {"C7_MOEDA"  , 1})
    aAdd(aCabec, {"C7_TXMOEDA", 1})
    aAdd(aCabec, {"C7_FILENT" , PADR(ALLTRIM(cFilAnt) ,TamSX3("C7_FILENT")[1] )  , NIL})

    aItems := {}
    FOR nX := 1 TO 100
        aLinha := {}
        aadd(aLinha, {"C7_PRODUTO", "000001" , Nil})
        aadd(aLinha, {"C7_QUANT"  , 1        , Nil})
        aadd(aLinha, {"C7_DATPRF" , dDataBase, Nil})
        aadd(aLinha, {"C7_PRECO"  , 1000     , Nil})
        aadd(aLinha, {"C7_TES"    , cTES     , Nil})
        aadd(aLinha, {"C7_LOCAL"  , "01"     , Nil})
        aadd(aItems, aLinha)
    NEXT nX

    SetFunname("MATA121")
    MSExecAuto({|x,y,z,k|MATA120(x,y,z,k)},1,aCabec,aItems,3)


    If lMsErroAuto  
        MostraErro()
    Else
        msgInfo("Pedido de compra incluido: " + cNumPc, " MsExecAuto Mimata120")  
        ConOut("Fin de Ejecuccion MYMT120: " + GetRmtTime())
    Endif

Return

...

04. INFORMACIÓN ADICIONAL

Nota
Se recomienda aplicar el paquete de actualización de expedición continua, para mantener actualizado el sistema.

Card documentos

Informacao	La solución no altera o modifica la información de los documentos registrados en el sistema.
Titulo	¡IMPORTANTE!

...

Árvore de páginas

Versões comparadas

Versão antiga 11

Nova versão 12

Chave

04. INFORMACIÓN ADICIONAL