Totvs custom tabs box items |
---|
default | yes |
---|
referencia | passo1 |
---|
| Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Remito |
---|
linenumbers | true |
---|
collapse | true |
---|
| Static Function LOCX60AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000001"
Local cLoja := "01"
Local cDoc := "090420240001"
Local cSerie := "R"
SetFunName("COMA221")
// Se define el modelo LOCX60
oMdlTab := FwLoadModel("LOCX60")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 1)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "001")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "001")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return |
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Borrado Remito |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX60AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."
SetFunName("COMA221")
oMdlTab := FwLoadModel("LOCX60")
DbSelectArea("SF1")
SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO
If SF1->(MsSeek(xFilial("SF1") + "090420240001" + "R " + "000001" + "01" + "N",.T.))
oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
oMdlTab:Activate()
If oMdlTab:VldData()
oMdlTab:CommitData()
Endif
EndIf
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
CONOUT("Mensaje de proceso: "+cMsj)
oMdlTab:DeActivate()
Return |
Informações |
---|
| Para los países de México, Colombia, Paraguay y Perú se debe considerar el nombre que actualmente se tiene en el menú "Movimientos": Remisión, para EUA y Republica Dominicana: Conduce, para el país de Chile : Guía de Despacho, para el país de Ecuador: Form. de Recepción y para el resto debe ser Remito de Entrada. |
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | passo2 |
---|
| Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Factura (Moneda 1) |
---|
linenumbers | true |
---|
collapse | true |
---|
| UserFunction LOCX10AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000025"
Local cLoja := "01"
Local cDoc := "090420240002"
Local cSerie := "A"
SetFunName("COMA222")
// Se define el modelo LOCX10
oMdlTab := FwLoadModel("LOCX10")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 1)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_COND" , "001" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return |
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Factura (Moneda 2) |
---|
linenumbers | true |
---|
collapse | true |
---|
| Static Function LOCX10AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000025"
Local cLoja := "01"
Local cDoc := "090420240003"
Local cSerie := "A"
SetFunName("COMA222")
// Se define el modelo LOCX10
oMdlTab := FwLoadModel("LOCX10")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 2)
oMdlTab:SetValue('SF1_MASTER', "F1_TXMOEDA" , 10)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_COND" , "001" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return |
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Borrado de Factura |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX10AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."
SetFunName("COMA222")
oMdlTab := FwLoadModel("LOCX10")
DbSelectArea("SF1")
SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO
If SF1->(MsSeek(xFilial("SF1") + "090420240002" + "A " + "000025" + "01" + "N",.T.))
oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
oMdlTab:Activate()
If oMdlTab:VldData()
oMdlTab:CommitData()
Endif
EndIf
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
CONOUT("Mensaje de proceso: "+cMsj)
oMdlTab:DeActivate()
Return |
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | passo3 |
---|
| Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Nota Débito Proveedor (Moneda 1) |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
UserFunction LOCX09AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000025"
Local cLoja := "01"
Local cDoc := "090420240004"
Local cSerie := "A"
SetFunName("COMA223")
// Se define el modelo LOCX09
oMdlTab := FwLoadModel("LOCX09")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 1)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_COND" , "001" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return |
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Nota DébitoProveedor (Moneda 2) |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX09AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000025"
Local cLoja := "01"
Local cDoc := "090420240005"
Local cSerie := "A"
SetFunName("COMA223")
// Se define el modelo LOCX09
oMdlTab := FwLoadModel("LOCX09")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 2)
oMdlTab:SetValue('SF1_MASTER', "F1_TXMOEDA" , 10)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_COND" , "001" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
)
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return |
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Borrado Nota Débito Proveedor |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX09AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."
SetFunName("COMA223")
oMdlTab := FwLoadModel("LOCX09")
DbSelectArea("SF1")
SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO
If SF1->(MsSeek(xFilial("SF1") + "090420240004" + "A " + "000025" + "01" + "C",.T.))
oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
oMdlTab:Activate()
If oMdlTab:VldData()
oMdlTab:CommitData()
Endif
EndIf
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
CONOUT("Mensaje de proceso: "+cMsj)
oMdlTab:DeActivate()
Return |
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | passo2passo4 |
---|
| Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Nota Crédito Interna (Moneda 1) |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX08AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000001"
Local cLoja := "01"
Local cDoc := "000100000250"
Local cSerie := "A"
SetFunName("COMA224")
// Se define el modelo LOCX08
oMdlTab := FwLoadModel("LOCX08")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_PV" , "0001" ) //Campo para Argentina, este campo debe ser informado antes de los demás.
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 1)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_TPVENT" , "B" )
oMdlTab:SetValue('SF1_MASTER', "F1_COND" , "001" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return
|
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Inclusión de Nota Crédito Interna (Moneda 2) |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX08AUTO()
Local oMdlTab
Local aError := {}
Local cMsj := "Registrado con éxito."
Local cFornece := "000001"
Local cLoja := "01"
Local cDoc := "000100000251"
Local cSerie := "A"
SetFunName("COMA224")
// Se define el modelo LOCX08
oMdlTab := FwLoadModel("LOCX08")
// Se define la operación INSERT en el modelo
oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
// Se activa el modelo
oMdlTab:Activate()
//Encabezado - SF1
oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SF1_MASTER', "F1_PV" , "0001" )
oMdlTab //Campo para Argentina, este campo debe ser informado antes de los demás.
oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" , cFornece )
oMdlTab:SetValue('SF1_MASTER', "F1_LOJA" , cLoja )
oMdlTab:SetValue('SF1_MASTER', "F1_SERIE" , cSerie)
oMdlTab:SetValue('SF1_MASTER', "F1_DOC" , cDoc)
oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" , dDataBase)
oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA" , 2)
oMdlTab:SetValue('SF1_MASTER', "F1_TXMOEDA" , 10)
oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" , "BA" )
oMdlTab:SetValue('SF1_MASTER', "F1_TPVENT" , "B" )
oMdlTab:SetValue('SF1_MASTER', "F1_COND" , "001" )
oMdlTab:SetValue('SF1_MASTER', "F1_FRETE" , 100 )
oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , 200 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" , 300 )
oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" , 200 )
//Detalle Items - SD1
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000001" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000002" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" , xFilial("SF1"))
oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM" , "0003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_COD" , "000003" )
oMdlTab:SetValue('SD1_DETAIL', "D1_DOC" , cDoc)
oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT" , 1)
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL" , 1000)
oMdlTab:SetValue('SD1_DETAIL', "D1_TES" , "175")
oMdlTab:SetValue('SD1_DETAIL', "D1_CF" , "112")
//Se ejecuta el commit
If oMdlTab:VldData() // Se detonan las validaciones del modelo
// Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
oMdlTab:CommitData()
Endif
// Se obtienen los errores del modelo
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
ConOut("Mensaje de proceso: " + cMsj)
oMdlTab:DeActivate()
Return
|
Bloco de código |
---|
language | java |
---|
firstline | 1 |
---|
title | Ejemplo completo:Borrado Nota Crédito Interna |
---|
linenumbers | true |
---|
collapse | true |
---|
| #INCLUDE 'protheus.ch'
User Function LOCX08AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."
SetFunName("COMA224")
oMdlTab := FwLoadModel("LOCX08")
DbSelectArea("SF1")
SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO
If SF1->(MsSeek(xFilial("SF1") + "000100000250" + "A " + "000001" + "01" + "C",.T.))
oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
oMdlTab:Activate()
If oMdlTab:VldData()
oMdlTab:CommitData()
Endif
EndIf
aError := oMdlTab:GetErrorMessage()
If alltrim(aError[6]) <> ""
cMsj := aError[6]
Endif
CONOUT("Mensaje de proceso: "+cMsj)
oMdlTab:DeActivate()
Return |
|
|