Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA012 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
Entry point AF012COPY allows the automatic completion of fields [N1_CBASE, N1_ITEM, N1_CHAPA, N1_FORNEC, N1_LOJA, N1_NSERIE and N1_NFISCAL] of the item selected. It makes it possible for the customer to fill out these fields automatically, ensuring greater efficiency and avoiding manual errors while registering or updating data.
With AF012COPY, you can speed up the registration of items, reducing the time required for data entry, and ensuring the compliance and accuracy of the information related to the item at issue.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If (ExistBlock("AF012COPY"))
lAf012Copy := ExecBlock("AF012COPY",.F.,.F.)
If VALTYPE(lAf012Copy) <> "L"
lAf012Copy := .T.
EndIf
EndIf |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function AF012COPY()
Local lRet := .F.
Local cMsg0 := ""
cMsg0 := oEmToAnsi("Populates key fields [N1_CBASE, N1_ITEM, N1_CHAPA], ") + CRLF
cMsg0 += oEmToAnsi("of supplier/store [N1_FORNEC, N1_LOJA] and") + CRLF
cMsg0 += oEmToAnsi("of invoice/series [N1_NSERIE, N1_NFISCAL] of ") + CRLF
cMsg0 += oEmToAnsi("item selected? ") + CRLF
If MsgYesNo(cMsg0)
lRet := .T.
Else
lRet := .F.
EndIf
Return(lRet) |
| Aviso | ||
|---|---|---|
| ||
|