Exemplos | #INCLUDE "RWMAKE.CH"
#INCLUDE "AVERAGE.CH" User Function ICPADDI0() cExecute := ""
IF TYPE("ParamIXB") == "C"
cExecute := ParamIXB
ENDIF IF cPaisLoc == "BRA"
IF cExecute == "BOTAO"
If Type("oDlgPrv") == "O"
@ 004,055 BUTTON STR0259 SIZE 35,11 ACTION (IF(DIGerou(),Processa({|| DI154PRETXT()},STR0031),)) PIXEL // EXPORTA
Else
@ 1.5,040 BUTTON STR0259 SIZE 37,11 ACTION (IF(DIGerou(),Processa({|| DI154PRETXT()},STR0031),)) PIXEL // EXPORTA
EndIf
nOpca:=0
ENDIF
RETURN .T.
ENDIF
DO CASE CASE cExecute == 'OUTROS_INDICES'//'INDICE_D' Work1FileE:=E_Create(,.F.)
IndRegua("Work1",Work1FileE+OrdBagExt(),"WKFORN+WK_NFE+WK_SE_NFE+WK_OPERACA+WKTEC+WKEX_NCM+WKEX_NBM+WKPO_NUM")
Work1FileF:=E_Create(,.F.)
IndRegua("Work1",Work1FileF+OrdBagExt(),"WK_NFE+WK_SE_NFE+WKFORN")
SET INDEX TO (Work1File+OrdBagExt()),(Work1FileA+OrdBagExt()), (Work1FileB+OrdBagExt()), (Work1FileC+OrdBagExt()), (Work1FileD+OrdBagExt()), (Work1FileE+OrdBagExt()), (Work1FileF+OrdBagExt())
CASE cExecute == "TELA1" IF cPaisLoc # "BRA"
nLin+=12
@ nLin,nCoL5 BUTTON "Impuestos" SIZE nSize,12 ACTION (TelaImpostos(!lGravaWorks))// PIXEL
oMark:bAval:={||TelaImpostos(!lGravaWorks)}
cTotal :="Total General CIF + Outras Desp. $"
ENDIF
CASE cExecute=='TELA_IMPOSTOS'
IF cPaisLoc # "BRA"
oDlgAlt:nHeight:=100
oDlgAlt:cCaption:="Modificacion de Peso"
ENDIF
ENDCASE Return .T. |
|---|
Parâmetros |
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
| MBROWSE | C | Executado antes da MBrowse. |
|
|
|
| WORK_BROWSES | C | Trabalha com as workareas usadas nos MBrowses. |
|
|
|
| OUTROS_INDICES | C | Faz o tratamento de outros indices que nao sao padrão. |
|
|
|
| TELA1 | C | Exibida na tela principal de Recebimento de Importação - NF - Primeira. |
|
|
|
| BOTAO | C | Permite adicionar botão na tela de itens de D.I. |
|
|
|
| TELA_TOTAIS | C | Exibe tela de totais dentro dos totais de D.I. |
|
|
|
| LER_SF1_SWN | C | Le o cabecalho e os itens de NF. |
|
|
|
| LEREI2 | C | Le os detalhes do custo realizado. |
|
|
|
| PESONEW | C | Permite novo peso do item na D.I. |
|
|
|
| FINALGRAVA | C | Termina gravação dos dados do item da D.I. |
|
|
|
| ALTERA_IMPOSTOS | C | Altera impostos referentes a NCM. |
|
|
|
| TELA_IMPOSTOS | C | Chamada na exibição da tela de alterações de impostos. |
|
|
|
| ALTEROU_IMPOSTOS | C | Verifica se os impostos foram alterados. |
|
|
|
| QUEBRA_CUSTO | C | Chamada na geração da NF. Quebra Custo conforme numero e data de NFE. |
|
|
|
| GRV_SD1 | C | Gravação dos dados de NFs de entrada. |
|
|
|
| GRAVA_SD1_EI3 | C | Gravação Cfo + Detalhamento Custo Realizado. |
|
|
|
| ACUMULA_SD1_EI3 | C | Soma as informações referentes as despesas e impostos. |
|
|
|
| GRAVA_SWN_EI2 | C | Gravação Itens de NF + detalhamento Custo Realizado. |
|
|
|
| GRAVA_SWW | C | Gravação de Despesas de NF |
|
|
|
| Tem_Outra_Quebra | C | Verifica se tem outra quebra na hora de gerar a NF, caso tenha seta lQuebra_Espe = .T. |
|
|
|
| Quebrou_NF | C | Caso tenha havido quebra na geração da NF, seta lQuebrou_NF = .T. |
|
|
|
| Outra_Quebra | C | Idem ao parametro Tem_Outra_Quebra |
|
|
|
| ANTES_GRV_SF1 | C | Prepara variaveis antes de gravar informacoes das NFEs, serao usadas na variavel cChaveSF1. |
|
|
|
| GRV_SF1 | C | Gravação do cabeçalho das NFs de entrada. |
|
|
|
| GRV_EI1 | C | Gravação do cabeçalho do Custo Realizado. |
|
|
|
| GRAVA_SF1_EI1 | C | Gravação do cabeçalho das NFEs + cabeçalho do Custo Realizado. |
|
|
|
| ANTES_ESTORNO_NOTA | C | Valida se a NF ja foi estornada antes de excluir, retorna conteudo na variavel lOK. |
|
|
|
| TAB_DESPESAS | C | Checa tabela de despesas. Retorna conteudo na variavel lSair, se retornar .T. em lSair, interrompe a operação. |
|
|
|
| DELETAWORK | C | FINALGRAVA | CApaga as workareas antes de apagar os arquivos temporarios locais. |
|
|
|
|
|---|
